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CHAPTER  1 

INTRODUCTION 

1.1   Systems  Simulation 

Simulation  is  a  technique  for  solving  problems.  It  is 
a  process  in  which  a  model  of  a  system  is  analyzed  to  gain 
more  insight  into  the  system's  behavior  and  performance 
characteristics.  The  model  describing  a  system  can  assume 
a  variety  of  forms.  It  can  be  a  physical  model  like  the 
scale  model  of  an  airplane  or  a  gas  turbine,  an  analog 
model,  a  symbolic  model  built  with  mathematical  equations, 
or  a  logical  model  represented  by  a  computer  program. 

A  model,  then,  is  a  representation.  Regardless  of  its 
form,  a  model  must  reflect  most  faithfully  those  parts  of 
reality  that  are  relevant  to  it. 

Simulation  models  can  be  classified  as  either  dynamic 
or  static.  Dynamic  models  exhibit  properties  that  change 
with  time.  In  dynamic  models,  time  is  considered  to  be  one 
of  the  important  state  variables,  whereas  in  static  models 
time  is  not  taken  into  consideration  at  all.  A  second 
scheme  classifies  models  as  stochastic  and  deterministic . 
A  stochastic  model  mimics  the  random  behavior  of  a  system 
simulated,  whereas  in  a  deterministic  model  the  random 
behavior  of  a  system  is  not  represented.  In  this  work  we 
shall  deal   primarily  with  dynamic  models   of   the 


deterministic  variety.  Studying  deterministic  models  will 
give  us  a  better  understanding  of  the  system  response  to 
minor  changes  in  the  input  variables.  The  model  then  can 
be  extended  to  a  stochastic  model  with  the  random 
variabilities . 

1.2  Methods  of  Dynamic  System  Simulation 

When  digital  computers  are  used  to  simulate  dynamic 
systems  the  continuous  flow  of  time  can  be  approximated  in 
two  ways.  The  two  methods  as  illustrated  by  Emshoff  and 
Sisson3  are  shown  in  Figure  1.1.  In  the  first  method, 
known  as  fixed-time  interval  simulation,  time  is  advanced 
in  discrete,  equal  intervals.  In  the  second  method  time  is 
broken  into  discrete  intervals  that  represent  the  time 
between  interactions  among  different  elements  of  a  system. 
These  interactions  result  in  a  change  in  the  state  of  the 
system  and  as  seen  in  Figure  1.1,  the  time  intervals 
between  such  changes  are  generally  unequal.  The  simulation 
thus  performed  is  called  a  next-event  simulation.  It  is 
seen  in  Figure  1.1  that  in  fixed-time  interval  simulation, 
there  are  no  state  changes  in  many  time  intervals.  This 
may  lead  to  unnecessary  time-advance  computations  even 
though  there  is  no  change  in  the  system  state.  But  the 
fixed-time  interval  simulation  is  better  suited  than  next- 
event  simulation  to  systems  wherein  one  or  more  of  the 
state  variables  change  continuously  and  cannot  be 
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approximated  by  discrete  state  changes. 

1.3  GASP,  A  Next-Event  Simulation  Language 

GASP  -  General  Activity  Simulation  Program  -  is  one  of 
the  oldest  next-event  simulation  languages  available.  It 
is  FORTRAN  based  and  consists  of  many  subprograms  which 
provide  the  analyst  a  framework  to  build  a  simulation  model 
and  execute  it.  Whenever  the  user  runs  a  simulation 
program,  the  user  written  subprograms  are  compiled  and 
linked  to  the  GASP  data  set.  A  simplified  schematic  flow 
diagram  of  a  GASP  program  is  shown  in  Figure  1.2. 

1.4  Objective  of  This  Study 

GASP  does  not  allow  the  user  to  control  the  flow  of 
simulation  when  it  is  actually  in  progress,  though  it 
allows  monitoring  of  the  events  to  a  limited  extent.  For 
better  control  and  understanding  of  the  simulation,  the 
user  should  be  able  to  interact  with  the  system  when  the 
simulation  is  actually  in  progress.  A  continuously  updated 
graphical  representation  of  the  output  will  greatly  enhance 
the  user  involvement  and  understanding  of  the  simulation 
and  will  help  him  in  making  decisions  ahead  of  time.  The 
above  mentioned  extensions  to  a  next-event  simulator  were 
the  basis  for  setting  an  objective  for  this  thesis.  The 
objective  is  to  develop  an  interactive  next-event  simulator 
which  will  allow  the  user  to  explore  the  rules  of  Optimized 
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Figure  1.2   Simplified  Schematic  Diagram 
Of  A  Typical  GASP  Program 


Production  Technology  (OPT)  and  the  theory  of  constraints. 
The  philosophy  of  OPT  and  its  scheduling  rules  are 
discussed  in  Chapter  2  of  this  study. 

The  simulator  will  help  the  user  in  investigating  the 
decision  making  rules,  their  linkages  and  consequences. 

1 .  5  Deviations  from  GASP 

The  above  extensions  of  user  interaction  and  graphics 
capabilities  make  the  personal  computer  an  ideal  choice  for 
implementing  the  simulator.  The  language  to  be  used  for 
implementing  this  simulator  should  satisfy  stringent 
hardware  control  requirements  in  addition  to  high  level 
data  structures  and  control  flow.  This  makes  the  'C 
programming  language  an  ideal  choice  for  developing  this 
simulator  over  FORTRAN,  which  was  used  for  developing  GASP. 

1.5.1   The  '  C  Programming  Language 

'C  is  a  general-purpose  programming  language  which 
features  economy  of  expression,  modern  control  flow  and 

Q 

data  structures  and  a  rich  set  of  operators.  In  addition 
it  can  be  used  as  an  alternative  to  assembly  language  for 
system-level  coding.  C's  operators  and  statements  are 
close  to  the  computer's  own  machine  instructions,  which 
when  compiled,  generate  programs  that  are  compact  and  fast 
enough  for  stringent  graphic  requirements. 

6 


Another  major  deviation  in  the  implementation  of  this 
simulator  from  that  of  GASP  will  be  in  the  storage  of  the 
future  event  chain.  Selection  of  the  data  structures  for 
storing  the  future  event  chain  is  critical  in  implementing 
a  next-event  simulator.  Since  GASP  was  developed  using 
FORTRAN,  which  offers  relatively  little  flexibility  in 
using  pointers  and  dynamic  data  structures,  an  array  was 
chosen  for  storing  the  future  event  chain.  This 
necessitated  offset  arithmetic  by  the  main  GASP  program  for 
filing  and  keeping  track  of  the  future  event  chain.  Since 
the  ' C  language  offers  dynamic  linked  lists  and  reference 
by  pointers,  a  doubly-linked  dynamic  data  structure  is 
proposed  for  the  future  event  chain  in  developing  the 
simulator  described  in  this  study.  A  more  detailed 
discussion  of  this  future  event  list,  also  known  as  a 
calendar,  follows  in  Section  3.3  of  this  study. 

1.6   Technique  Used  in  This  Study 

In  the  simulation  program  to  be  discussed  here,  the 
events  are  placed  in  the  calendar  and  are  processed 
according  to  their  event  types.  Since  this  is  an 
interactive  program  and  the  user  would  be  monitoring  and 
controlling  the  simulation  as  it  proceeds,  a  regular 
advance  of  the  system  clock  will  be  more  user-friendly.  So 
the  clock-tick  is  also  included  in  the  calendar  of  events 
and  would  be   processed   by   the   event-processor   just   like   any 


other  event.  Thus  the  program  would  seem  to  run  like  a 
fixed-time  interval  simulation  even  though  it  is  actually  a 
next-event  simulation  with  clock-tick  as  an  event. 

The  highest  level  of  the  simulation  program  can  now  be 
explained  in  terms  of  a  calendar  and  its  events.  The 
current  event  pointer  (sometimes  called  the  simulation 
"clock")  is  moved  to  the  next  event  on  the  calendar  and  the 
event  is  processed  by  changing  the  system  according  to  the 
specifications  of  that  event.  This  is  continued  until 
there  are  no  more  events  on  the  calendar  or  the  time  on  the 
clock  exceeds  some  preset  upper  bound. 

This  raises  a  question  about  how  the  events  will  be 
placed  on  the  calendar.  The  system  will  be  initialized 
with  a  few  events  in  the  calendar.  Each  event  will  spawn 
one  or  more  events  so  that  new  events  will  constantly  be 
created.  In  fact,  one  of  the  major  purposes  of  the  event 
procedures  will  be  to  schedule  new  events  and  place  them  on 
the  calendar.  Thus  the  simulation  will  terminate  not  by 
running  out  of  events  but  by  running  past  the  preset  time 
limit  called  "sim_maxtime" .  An  overall  schematic  diagram 
of  the  simulator  is  given  in  Figure  1.3.  The  process  of 
event  creation  and  processing  will  be  discussed  in  detail 
in  Chapter  3  of  this  study. 
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Figure  1 .3  Overall  Schematic  Diagram 
Of  The  Simulator 


CHAPTER  2 

OPTIMIZED  PRODUCTION  TECHNOLOGY  (OPT) 

2.1   Introduction 

Intensive  competition  in  a  number  of  global 
manufacturing  industries  has  recently  triggered  renewed 
interest  in  the  manufacturing  strategy  and  its  contribution 
to  a  company's  overall  competitive  success. 

Since  World  War  II,  the  United  States  has  taken  for 

granted  the  superiority  of  its  technology  and  management 
practices.  This  complacency  tended  to  blind  the  U.S. 
managers  to  the  rapid  improvements  taking  place  elsewhere. 
Many  companies,  too  often,  have  treated  manufacturing 
decisions  on  an  ad  hoc  basis  without  regard  to  the  linkages 
among  them.  This  approach  may  not  result  in  creation  of  a 
manufacturing  organization  that  can  endure  and  prevail 
against  competitors,  whose  every  action  is  guided  by  a 
consistent  underlying  purpose  -  a  philosophy  of  competing 
through  manufacturing  and  "doing  business". 

This  thesis  is  aimed  at  providing  a  curtain-raiser  on 
the  philosophy  of  Production/Operations  Management  (P/OM) 
advocated  in  "The  Theory  of  Constraints"  or  "OPT"  [Goldratt 
and  Fox,  1986]  .  This  chapter  will  discuss  the  conceptual 
development  of  the  theory  and  the  operational  rules  based 
on  it.    These  rules  will  then  be  emphasized  with  an 
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interactive       computer       program       which       can       accept 
user/management  decisions   and   act   accordingly. 

2.2   Phenomena  of  a  Manufacturing  System 

A  manufacturing  organization  can  be  examined  on  the 
basis  of  its  inherent  phenomena.  Looking  at  the  various 
stages  of  any  production  process,  it  can  be  easily  derived 
that  the  following  phenomena  are  exhibited  by  the  system: 

(1)  Statistical  fluctuation  (Non-determinism  of  activity 

time) . 

(2)  Dependent  events  (Inter-dependence  of  the  events). 

All  the  production  planning  done  today  implicitly 
follows  the  aim  of  achieving  a  balanced  plant  (balanced 
capacity  to  demand)  .  But  there  are  no  balanced  plants  in 
existence.4  Is  there  a  price  we  are  paying  for  ignoring 
the  existing  realities  of  a  production  system  by  planning 
for  the  ideal? 

If  we  start  from  the  basics,  a  production  schedule 
depends  on  the  rate  times  set  for  each  activity  or 
operation.  Typically,  production  management  assumes  that 
the  law  of  averages  is  applicable  to  any  process-stage  or 
operation.  This  assumes  that  the  events  or  the  different 
stages  of  a  manufacturing  process  are  independent.  In  a 
production  system,  however,  each  activation  of  the 
succeeding  operation  or  event  is  dependent  on  the  preceding 
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stages  of  the  process. 

If  the  goal  of  the  organization  is  to  survive  in 
business  and  make  a  profit,  then  one  could  hardly  choose  a 
worse  method  than  balancing  the  plant  capacity  to  the 
demand.  The  obvious  effect  would  be  increased  work-in- 
process  inventory  due  to  the  cumulative  effect  of  the 
statistical  variations.  This,  in  turn,  leads  to  reduced 
throughput  and  thus  increased  cycle-time.  The  outcome  of 
this  approach  of  production  planning  leads  one  to  think 
conscientiously  and  understand  the  characteristics  of  a 
production  system  and  the  components  in  a  different  way. 

2.3   The  GOAL:  A  Systems  Concept 

It  is  well  understood  that  the  success  of  a 
manufacturing  organization  depends  on  coherent  functioning 
of  all  the  system  components  toward  the  ultimate  goal  of 
the  organization.  But  what  is  the  goal?  What  are  the 
measurements  to  evaluate  the  progress  toward  the  goal? 
What  are  the  operational  relationships  of  these 
measurements  to  the  activities  on  the  shop  floor? 

Answers  to  these  questions  initiate  the  logical  move 
toward  better  production/operations  management  principles. 

Cost-effective  purchasing,  leading  technology,  low- 
cost  high-quality  production,  market  capture,  customer 
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satisfaction:  all  are  means  to  achieve  the  goal  of  making 
money  and  survival  in  the  business.  This  clear  definition 
of  the  goal  should  be  known  to  all  in  the  organization. 
Throughput,  inventory  and  operational  expense  are  the  three 
measurements  on  the  plant  floor  to  provide  operational 
relationship  to  the  financial  parameters.  The  goal  can  be 
expressed  for  the  operational  purpose  as:  "Increase 
throughput  while  simultaneously  reducing  the  inventory  and 
the  operational  expense". 

2.4  Appropriate  Planning  Policies 

All  the  system  components  should  contribute  to  the 
overall  goal  of  the  system.  Hence,  the  aim  is  system 
optimization  and  not  local  optima.  It  is  evident  that  a 
work  center  in  isolation  may  reach  maximum  utilization 
(local  optimum)  by  producing  continuously  when  the  demand 
is  not  present.  This  does  not  move  the  organization  toward 
the  goal,  since  this  results  in  inventory  build-up, 
increased  operational  expense  and  reduced  throughput.  The 
key  principles  may  be  developed  as  an  aid  for  proper 
planning  policy  decisions  from  the  above  analysis: 

(1)  A  resource  can  be  distinguished  on  the  basis  of  its 
capacity  with  respect  to  the  demand.  A  bottleneck 
resource  has  its  capacity  equal  to  or  less  than  the 
demand.  A  non  bottleneck  resource  has  capacity 
greater  than  the  demand.   A  bottleneck  resource  is  a 
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constraint  on  the  system.  It  actually  dictates  the 
effective  throughput  of  the  system.  Hence  the  flow  of 
the  product  should  be  balanced  through  the  bottleneck 
at  par  with  the  demand. 

(2)  Bottlenecks  affect  the  inventory  and  the  throughput  of 
the  system.  Saving  time  on  a  bottleneck  is  equivalent 
to  saving  time  on  the  entire  system.  An  hour  saved  on 
a  non-bottleneck  does  not  contribute  to  the  system 
throughput . 

(3)  Cost  accounting  approaches  need  to  be  changed.  The 
cost  figures  should  take  into  account  the  category  of 
the  resource.  Reduced  lot  size  and  hence  increased 
setups  on  a  non  bottleneck  resource  can  be  justified 
by  savings  in  the  queue  time  and  waiting  time  for  the 
batches  and  reduced  idle  time  on  a  bottleneck 
resource.  This  may  result  in  condensed  total  lead 
time  and  thus  better  response  to  the  market  demand. 

(4)  Mere  activation  of  the  resource  is  not  the  effective 
"utilization"  of  the  resource,  because  it  does  not 
move  the  system  closer  to  the  goal. 

(5)  Recommendations  to  improve  the  system  performance  are 
as  follows: 

(a)  A  bottleneck  resource  should  not  remain  idle. 

(b)  Quality  control  should  always  control  the 
process  closely  on  the  bottlenecks  so  that  the 
entire  system  throughput  is  not  reduced  either 
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due  to  defective  manufacture  on  the  bottleneck 
or  due  to  defective  incoming  parts  to  the 
bottleneck. 

(c)  Increased  capacity  on  a  bottleneck  can  improve 
the  system  throughput. 

(d)  Proper  prioritizing  and  material  release  for  the 
bottleneck  schedule  can  improve  the  delivery 
schedules. 

(6)  Ideally,  the  reserve  capacity  of  the  non-bottlenecks 
should  be  gradually  increased  towards  the  downstream 
end  of  the  production  process.  This  is  required  to 
attenuate  the  cumulative  effect  of  variations. 

2.5   Summary  of  OPT  Scheduling  Rules 

To  conclude  this  discussion,  the  OPT  philosophy  can  be 
summarized  in  the  following  nine  scheduling  rules: 

(1)  Balance  flow,  not  capacity. 

(2)  The  level  of  utilization  of  a  non-bottleneck  is  not 
determined  by  its  own  potential  but  by  some  other 
constraint  in  the  system. 

(3)  Activation  and  utilization  of  a  resource  are  not 
synonymous . 

(4)  An  hour  lost  at  a  bottleneck  is  an  hour  lost  for  the 
total  system. 

(5)  An  hour  saved  at  a  non-bottleneck  is  just  a  mirage. 

(6)  Bottlenecks  govern  both  throughput  and  inventories. 

15 


(7)  The  transfer  batch  may  not,  and  many  times  should  not, 
be  equal  to  the  process  batch. 

(8)  The  process  batch  should  be  variable,  not  fixed. 

(9)  Schedules  should  be  established  by  looking  at  all  of 
the  constraints  simultaneously.  Lead  times  are  the 
result  of  a  schedule  and  cannot  be  predetermined. 

2.6  Use  of  OPT  Rules  in  Controlling  the  Simulator 

It  is  suggested  that  the  user  understand  the 
philosophy  of  OPT  before  using  the  simulator.  Judicious 
use  of  these  rules  in  controlling  the  flow  of  the 
simulation  will  help  the  user  understand  the  dynamics  of 
production  control  and  allow  him  to  realize  the  benefits  of 
using  these  rules  to  achieve  the  goal  of  a  manufacturing 
organization.  The  organization  of  the  simulator  is 
described  in  Chapter  3  of  this  study.  A  comprehensive 
user's   manual   for   the   simulator   follows   in  Chapter   5. 
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CHAPTER  3 

DATA  STRUCTURES  AND  PROGRAM  ORGANIZATION 

3.1   Introduction 

This  chapter  will  discuss  the  basic  data  structures 
used  in  the  development  of  the  next-event  simulation 
program.  It  will  also  give  an  insight  into  the 
organization  of  the  program  with  event  charts  and  pseudo- 
codes . 

Selection  of  reliable  data  structure  is  the  key  aspect 
of  developing  efficient  and  maintainable  applications.  The 
main  body  of  the  program  itself  should  not  be  affected  when 
a  minor  change  is  made  to  the  related  data  structure. 
After  selecting  the  data  structure,  care  should  be  taken  to 
hide  the  details  of  the  data  structure  from  the  main  body 
of  the  program.  This  will  help  in  faster  program 
expansion,  reliable  operation  and  easy  maintenance. 

The  simulation  program  to  be  discussed  here  is  a 
general  purpose  program  which  can  accept  data  from  a 
datafile  and  from  the  user.  This  means  that  the  storage 
capacity  for  the  entities  in  the  simulation  cannot  be 
predefined  as  static  data  structures  during  compile  time. 
Instead  they  are  to  be  dynamically  allocated  during  run- 
time. This  necessitates  the  use  of  linked  lists  rather 
than  arrays.   Another  purpose  of  the  program  is  to  display 
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outputs  graphically  on  the  screen  and  update  them  during 
run-time.  This  necessitates  low-level  hardware  control  for 
efficiency  and  reliability. 

3.2  The  Philosophy  of  'C 

As  already  mentioned,  '  C  has  been  called  both  a  high- 
level  and  a  low-level  language.  Its  high-level  aspects 
include  support  for  a  modular  programming  style,  numerous 
data  types,  and  a  good  set  of  control-flow  statements.  Its 
low-level  side  consists  of  powerful  bit-level  and  memory 
addressing  data  structures  and  operators  closely  tied  to 
the  capabilities  of  the  underlying  hardware. 

'C  is  so  versatile  and  general-purpose  that  it  can  be 
used  to  control  complex  machinery,  crunch  numbers,  play 
video  games,  or  perform  business  accounting  and  inventory 
control.  "C  is  not  tied  to  any  particular  hardware 
configuration.  'C  programs  are  executing  everyday  in 
environments  with  no  terminals,  no  printers,  no  disks,  even 
no  operating  systems.  A  good  example  of  such  a  system  is 
an  elevator  which  is  controlled  by  a  'C  program  which 
"listens"  for  input  from  the  elevator's  control  buttons  and 
other  sensors. 

' C  provides  maximum  support  for  modular  programming, 
which  speeds  program  development  and  simplifies 
maintenance,  since  each  module  can  be  designed  and  tested 
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independently.  A  modular  program  is  one  that  is 
constructed  from  a  set  of  small,  independent  functions, 
each  of  which  does  a  single  clearly  defined  job.  High- 
level  functions  outline  or  manage  the  overall  processing  in 
a  general  way,  and  call  low-level  functions  to  perform 
detailed  data  manipulations.  The  high-level  functions 
don't  care  how  the  low-level  functions  do  their  jobs,  just 
as  long  as  the  jobs  get  done. 

3.3  The  Calendar  Data  Structure 

Continuing  the  discussion  in  Chapter  1  about  the 
calendar,  it  is  an  important  data  structure  in  the  program 

and  it  contains  the  future  event  list.   The  future  event 

17 
list  contains  all  scheduled  future  event  instances.     Each 

scheduled  future  event  instance  includes  its  event  type, 

time  of  scheduled  occurrence  (event  time) ,  event  variables 

and  a  modifier  field  which  determines  if  the  event  is 

mandatory. 

Reliability  of  this  calendar  data  structure  is  very 
important  as  it  is  the  calendar  containing  the  future  event 
list  that  decides  the  flow  of  the  simulation.  An  array  is 
probably  an  inappropriate  data  structure  for  a  calendar, 
since  there  is  no  prior  knowledge  of  how  many  events  may  be 
in  the  calendar  at  any  one  time.  If  the  calendar  is 
declared  as  an  array [1 .. 500]  ,  it  would  become  an  unreliable 
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data  structure  if  there  are  501  events  scheduled  at  any  one 
time.  This  will  not  result  in  a  run-time  error  in  the  'C 
program  as  with  programs  in  other  languages.  The  program 
would  continue  to  run.  But  this  will  result  in  the 
corruption  of  the  heap  and  stack  of  the  system  whose 
integrity  is  essential  for  reliable  operation  of  the 
program. 

A  linked  list  is  the  best  way  to  represent  a 
calendar.18  It  will  consists  of  a  doubly  linked  list  of 
events  sorted  by  increasing  value  in  the  time  field. 

A  calendar  list  with  its  elements  as  used  in  the 
program  is  shown  in  Figure  3.1.  This  calendar  list  can  be 
created  through  the  following  declaration  which  is  coded  in 
' calendar. h'  in  Appendix  A. 

#define  CALENDAR  struct  calendar 


CALENDAR  f 

char  modifier; 

long  unsigned  time; 

int  weeks; 
int  days; 
int  hrs; 
int  mins; 
char  *fnc_ptr; 
int  a; 
int  b; 
int  c; 
int  d; 
CALENDAR  *prev; 


CALENDAR  *next; 


/*  Determines  if  the 
event  is  mandatory  */ 
/*  Event  time  in  minutes 
from  start  time  */ 


/*  Function  pointer  */ 
I*  Event  variable  1  */ 
/*  Event  variable  2  */ 
/*  Event  variable  3  */ 
/*  Event  variable  4  */ 
/*  Pointer  to  previous 

event  */ 
/*  Pointer  to  next 

event  */ 


I ; 
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The  above  declaration  uses  another  data  structure 
called  structure  which  is  useful  in  grouping  a  collection 
of  objects  with  different  data  types  into  a  single 
aggregate  object.14  It  can  be  seen  that  the  structure 
consists  of  some  integers,  characters,  character  pointers 
and  even  pointers  of  type  CALENDAR  which  are  pointers  to 
itself.  This  type  of  structure  is  commonly  referred  to  as 
self -referential  structures.  Self -referential  structures 
are  widely  used  throughout  this  program.  It  gives  the 
flexibility  of  unlimited  entries  and  also  dynamic 
allocation  and  release  of  the  valuable  memory  space. 

3.4  Description  of  the  calendar  and  its  objects 

The  first  entry  in  the  calendar  structure,  'modifier', 
is  a  character  which  decides  if  that  particular  event  is 
mandatory.  If  the  event  is  mandatory,  it  cannot  be  deleted 
by  the  user  with  the  calendar  edit  function.  The  operation 
of  the  calendar  edit  function  is  described  in  Chapter  5 
which  is  a  user's  manual  for  the  program.  The  mandatory 
modifier  is  '$'  ,  which  is  used  as  modifier  for  the 
' clock_tick '  event  and  'unload'  event.  Other  types  of 
modifiers  are  'DELETED'  and  ' USER_SPECIFIED ' .  If  the 
modifier  is  'DELETED',  the  event  is  marked  as  deleted  with 
a  '*'  and  is  not  processed  by  the  event-processor.  The 
event  is  removed  from  the  calendar  just  like  any  other 
event  when  the  event  time  arrives,  but  is  not  processed.   A 
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deleted  event  can  be  undeleted  by  the  user  before  it  is 
removed  from  the  calendar. 

If  the  modifier  is  'USER_SPECIFIED ' ,  it  means  that  the 
event  was  entered  by  the  user  using  the  'AddEvent'  in  the 
calendar  edit  and  was  not  generated  by  the  program.  This 
information  is  used  for  marking  the  system  change  times  and 
computing  statistics. 

A  summary  of  the  modifiers  follows: 


Modifier 

Symbol 

ASCII  number 
(Hex) 

Comments 

CLOCK_MODIFIER 

'$' 

24 

Mandatory 

UNLOAD_MODIFIER 

'$' 

24 

Mandatory 

REG_MODIFIER 

(space) 

20 

DELETED 

1  *  i 

2A 

Not 
processed 

USER_SPECIFIED 

'U' 

55 

Entered  by 
the  user 

The  above  declarations  are  made  in  'opt.h'  in  Appendix  A. 

The  next  entry,  'time',  is  the  event  time.   It  is 

declared  as  'unsigned  long  integer'  and  can  store  integer 

32 
values  upto  2   .   This  will  enable  the  program  to  simulate 

more  than  8000  years  which  is  far  beyond  normal  simulation 

lengths.   The  variables  "weeks",  "days",  "hrs",  and  "mins" 

which  are  the  next  four  entries  in  the  structure  are  used 

to  store  the  time  in  terms  of  weeks,  days,  hours,  and 


23 


minutes  respectively.  The  conversion  of  the  unsigned  long 
time  to  its  integer  breakup  is  done  by  a  structure  version 
of  the  ' time_to_str ing '  function  which  is  listed  in 
's_conv.c'  in  Appendix  A. 

There  are  several  constants  and  variables  used  for 
converting  time  to  its  respective  breakup.    They  are 
defined  in  'opt.h'  as  follows: 
Defined  as 


Constant/ 
Variable 

MIN  PER  HR 


HRS_PER_DAY 
DAYS_PER_WEEK 

MIN_PER_DAY 
HRS_PER_WEEK 
MIN  PER  WEEK 


60L 

hrs_per_day 
days_per_week 


HRS_PER_DAY  *  MIN_PER_HR 
HRS_PER_DAY  *  DAYS_PER_WEEK 
HRS  PER  WEEK  *  MIN  PER_HR 


Value 

Comments 

60 

long 

value. 

default: 

24 

can  be 
changed 

default: 

7 

by  user 

before 

start. 

It  can  be  seen  from  the  above  definitions  that  the 
user  can  vary  the  length  of  the  day  and  the  number  of 
working  days  in  a  week  according  to  the  number  of  shifts 
the  shop  will  work. 

The  next  field  in  the  calendar  structure  is  ' f nc_ptr ' 
which  is  declared  as  a  character  pointer.  This  is  merely 
the  event  type.  There  are  six  different  event  types  that 
will  change  the  state  of  the  shop. 
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They  are  defined  as  follows  in  'opt.h': 

Constant  defined  as: 

CLOCKJTICK  "clock_tick" 

PURCHASE  "purchase" 

SETUP  "setup" 

LOAD  "load" 

UNLOAD  "unload" 

MOVE  "move" 

These  definitions  avoid  misspellings  and  erroneous 
introduction  of  spaces  such  as  "  move"  instead  of  "move"  in 
comparison  and  identification  of  the  event. 

The  next  four  fields  in  the  calendar  structure  are 
'a',  'b',  'c',  and  'd'  which  are  declared  as  integers. 
These  hold  the  event  variables.  The  event  variables  have 
different  meanings  according  to  which  event  type  they  is 
associated  with.  The  event  variables  are  discussed  in 
section  3.8  which  explains  the  event  procedures. 

Finally  the  last  two  fields  are  pointers  to  type 
'CALENDAR',  named  'prev'  and  'next'.  These  are  the 
pointers  used  to  link  the  individual  nodes  into  a  doubly 
linked  data  structure  with  NULL  terminators  on  both 
extremes  as  shown  in  Figure  3.1.  A  singly  linked  data 
structure  will  suffice  if  the  calendar  is  to  be  processed 
only  in  a  sequential  manner.   But  due  to  the  need  for 
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calendar  display  and  calendar  edit  functions,  a  doubly 
linked  list  is  appropriate  and  will  save  time  when  walking 
through  the  calendar  list  with  pointers. 

3.5  How  The  Calendar  Mechanism  Works 

The  calendar  list  is  first  formed  and  initialized  by 
the  function  ' f orm_calendar ' .  This  function  is  listed  in 
the  file  'calendar. c'  in  Appendix  A.  The  function 
initializes  the  list  with  5  events,  all  of  type 
'CLOCK_TICK' . 

A  node  of  type  'CALENDAR'  is  dynamically  allocated  at 
run-time  by  requesting  DOS  for  a  contiguous  sector  of 
memory  of  size  equal  to  that  of  'CALENDAR'.  If  'temp'  is  a 
pointer  to  the  type  'CALENDAR',  then  the  statement 
temp  =  (CALENDAR*)my_malloc(sizeof (CALENDAR) ) ; 
will  allocate  the  required  block  of  memory  and  return  the 
starting  address  of  the  block  which  will  then  be  assigned 
to  the  variable  'temp'.  Now  by  using  the  pointers 
'temp->prev'  and  ' temp->next ' ,  the  newly  allocated  node  can 
be   linked   to   the   calendar   list. 

The  topmost  node  in  the  calendar  list  is  pointed  to  by 
'cal_q'  and  is  used  as  a  landmark  for  the  calendar  list. 
'cal_q'  will  always  point  to  the  first  entry  in  the  list. 
There  are  other  pointers  to  the  calendar  list  namely 
'cal_h'    which  points    to   the   head  of    the   list,     'cal_t'    which 
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points  to  the  tail,  'cal_user'  which  points  to  the  node  the 
user  wants  to  change  during  calendar  edit,  and  'cal_temp' 
which  is  used  for  miscellaneous  operations. 

Each  event  of  type  'CLOCK_TICK'  schedules  one  more 
event  of  its  own  type  when  processed.  This  ensures  that 
the  minimum  number  of  entries  in  the  calendar  list  at  any 
one  time  to  be  five.  Event  generation  is  discussed  in 
detail  in  section  3.7. 

There  are  two  more  pointers  of  type  'CALENDAR'  which 
are  named  'first_line'  and  'last_line',  which  point  to  the 
first  line  and  last  line  respectively  of  the  calendar 
displayed  in  the  calendar  window.  These  define  the  portion 
of  the  calendar  list  that  the  user  can  see  on  the  screen  at 
any  time. 

The  rest  of  the  functions  listed  in  '  calendar. C  are 
used  for  calendar  management.  Out  of  these  functions, 
'schedule'  and  'get_next_event '  are  functions  which  need 
some  discussion. 

'Schedule'  is  a  function  which  allocates  a  node  for 
the  new  event,  assigns  appropriate  event  types  and  event 
variables  to  the  allocated  node  and  links  it  to  the 
calendar  list  in  the  ascending  order  of  the  'time'  field. 
An  example  of  node  insertion  is  shown  in  Figure  3.2. 

'Schedule',  after  linking  the  node  to  the  calendar 
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list,  checks  to  see  if  the  newly  introduced  node  is  in 
between  the  first  line  and  the  last  line  of  the  calendar 
display.  If  it  is,  it  adjusts  the  calendar  display 
accordingly  so  the  new  entry  is  displayed  on  the  screen  in 
the  appropriate  position.  Figure  3.3  shows  pseudo  code  for 
the   function    'schedule'. 

The  function  '  ge t_next_event  '  ,  also  listed  in 
' calendar . c ' ,  fetches  the  topmost  event  in  the  calendar 
list.  This  event  is  then  processed  by  the  event  processor, 
'process_event ' ,  which  appears  in  the  file  ' process. c'  in 
Appendix  A.  When  the  event  is  processed,  it  generates  one 
or  more  events  according  to  its  event  type  and  the 
instantaneous  system  state.  After  the  event  is  processed 
and  the  system  state  updated,  the  event  is  deleted  from  the 
calendar  list  and  the  memory  space  is  freed  for  some  other 
use.  The  display  is  also  adjusted  accordingly  so  the 
processed  event  is  removed  from  the  calendar  window. 
Figure   3.4   shows   the   pseudo   code   for    'process_event ' . 

3.6     Other  Data   Structures   In  The   Program 

In  addition  to  the  calendar  data  structure  discussed 
earlier,  the  program  uses  numerous  other  data  structures. 
Some   of    those  data   structures   will   be   discussed   here. 
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Schedule: 

Identify  the  event  by  comparing  with  possible  event  types; 
Allocate  a  temporary  node  of  type  CALENDAR; 
Assign  appropriate  modifier  and  event  type; 
Assign  the  appropriate  time  and  event  variables; 
Convert  time  to  its  respective  breakup  using  time_to_stnng; 
Search  the  calendar  list  for  the  appropriate  insertion  point 

using  the  time  field; 
Insert  the  node  by  adjusting  the  pointers; 
Check  to  see  if  this  event  is  in  between  the  first  and  the 

last  line  of  the  calendar  display; 
If  it  is,  adjust  display; 


FIGURE  3.3   Pseudo-code  for  schedule 


Process_event : 


If  event  is  not  marked  deleted 
Identify  the  event  type; 
Invoke  the  appropriate  procedure; 

Delete  event  from  calendar; 

Adjust  display; 

return; 


FIGURE  3.4  Pseudo-code  for  process_event 
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3.6.1  Machine  Structure 

The  structure  for  a  machine  is  defined  in  'opt.h'  as 
follows: 

#define  MACHINE  struct  machine 

MACHINE! 

int  row;  /*  Screen  row  for  machine  */ 

int  col;  /*  Screen  column  */ 

int  mach_no;  /*  Machine  number  */ 

int  repeat;  /*  Repeat  for  part_type  */ 

int  setup_for;  /*  Part_type  setup  for  */ 

char  setup_for_in_char;   /*  Part_type  in  character  */ 
int  mstate;  /*  Machine  state  */ 

unsigned  long  int  state_change_time; 

/*  Mark  time  of  state  change*/ 
unsigned  long  int  time_idle;   /*  Total  time  idle  */ 
unsigned  long  int  time_setup;  /*  Total  time  in  setup  */ 
unsigned  long  int  time_busy;   /*  Total  time  busy  */ 
MACHINE  *next;  /*  Next  machine  */ 

I; 

All  machines  are  represented  by  the  above  data 

structure.   Machines  in  the  same  department  are  linked  in  a 

singly  linked  list  with  a  NULL  terminator  after  the  last 

machine. 

The  variables  'row'  and  'col'  contain  the  physical 
screen  row  and  screen  column  of  the  machine.  The  exact 
location  on  the  screen  to  which  these  variables  point  can 
be  seen  in  the  screen  layout  figure  given  in  Chapter  4. 
Storing  the  co-ordinates  of  the  machine  in  its  structure 
eliminates  the  need  for  coordinate  calculation  for  each 
update  and  thus  increases  the  speed  of  output.  The 
variable  'setup_for'  contains  the  part  type  for  which  the 
machine  is  setup.   The  variable  'mstate'  contains  the  state 
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of    the    machine    at    any    instant.       There    are    three    state    for 
any  machine. 
They   are: 

state  value   of    'mstate' 

Idle  0 

Setup  1 

Busy  2 

The  variable  '  state_change_time '  which  is  declared  as 
unsigned  long  is  used  to  mark  the  time  of  state  change  for 
that  particular  machine.  Since  the  time  is  declared  as 
unsigned  long,  this  variable  is  also  declared  as  long  to 
avoid  type  conversions.  The  final  three  variables 
'time_idle',  ' t ime_setup ' ,  and  'time_busy'  are  also 
declared  as  unsigned  long  and  are  used  to  store  the 
cumulative  time  from  the  beginning  of  simulation  in  those 
respective  states  for  the  machine  which  changed  state. 
A  pictorial  representation  of  the  machine  list  is  shown  in 
Figure      3.5. 

3.6.2   Part  Information  Structure 

The  structure  for  part  information  holds  all  relevant 
information  for  the  parts  processed  by  a  particular 
department   and   is   declared   in    'opt.h'    as    follows: 
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Bach 


next 

NULL 


Figure  3.5  Machine  List 
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♦define  PART_INFO  struct  part_information 

PART_INFO I 

int  row;  /*  Screen  row  for  part  info.  */ 

int  col;  /*  Screen  column  */ 

int  repeat;  /*  Repeat  for  part  type  */ 

int  ptype;  /*  Part  type  */ 

char  ptype_in_char;  /*  Part  type  in  character  */ 

int  pre;  /*  Contents  of  pre  area  */ 

int  post;  /*  Contents  of  post  area  */ 

int  dept_no;  /•  Department  number  */ 

PART_INFO  *next;  /*  Next  part  information  */ 

I  ; 

The  variables  'row'  and  'col'  again  contain  the 
physical  screen  co-ordinates  of  the  part  information.  The 
variable  ptype  contains  the  part  type.  'Pre'  and  'post' 
contain  the  contents  of  the  pre-area  and  that  of  the  post- 
area  respectively.  The  part  information  is  also  linked  in 
a  singly  linked  list  data  structure. 

3.6.3  Department  Structure 

The  structure  for  a  department  consists  of  pointers  to 
the  machine  list  and  the  part  information  list  associated 
with  that  department.  Its  structure  is  defined  in  'opt.h' 
as  follows: 

tdefine  DEPT  struct  department 

DEPT( 

int  dept_no;  /*  Department  number  */ 

int   nmachines;  /*  Number  of  machines  */ 

int  nmach_in_use;  /*  Number  of  machines  in  use  */ 

int  row;  "  /*  Screen  row  */ 

int  col;  /*  Screen  column  */ 

MACHINE  *mach;  /*  Pointer  to  machine  list  */ 

PART_INFO  *part_info;  /*  Pointer  to  part  info  list  */ 

DEPT  *next;  /*  Pointer  to  next  department  */ 
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The  variable  'dept_no'  contains  the  department  number 
and  the  variable  'nmachines'  contains  the  number  of 
machines  in  that  department.  The  variable  'nmach_in_use ' 
is  used  to  store  the  number  of  machines  in  use  at  any 
moment.  A  machine  is  in  use  if  it  is  either  processing  a 
part  or  if  it  is  being  setup  for  a  part  or  if  it  is  already 
setup  and  is  waiting  for  a  part.  A  pictorial  overview  of 
these  data  structures  as  a  whole  is  shown  in  Figure  3.6. 

From  the  figure,  it  can  be  seen  that  any  information 
can  be  accessed  through  the  single  pointer  'dept_h'  which 
is  the  landmark  pointer  for  the  department  data  structure. 
So  all  the  program  has  to  remember  is  the  pointer  'dept_h' 
and  irrespective  of  the  number  of  departments  or  the  number 
of  machines  in  each  individual  department,  the  right 
information  can  be  accessed  by  using  pointers  of  related 
type.  Thus  this  data  structure  makes  the  program  a  general 
one  which  can  have  any  number  of  departments  and  any  number 
of  machines  in  each  department,  the  only  limitation  being 
the  memory  available  in  the  computer. 

3.6.4   Raw  Material  Structure 

The  structure  for  raw  material  is  defined  as  follows 
in  'opt.h' : 
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Figure  3.6  Overview  of  the  department 
data  structure 
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#define  RAW  struct  raw_material 

RAW( 

int  raw_mat_no;    /*  Raw  material  number  */ 

int  cost;  /*  Raw  material  cost  */ 

int  row;  /*  Screen  row  */ 

int  col;  /*  Screen  column  */ 

RAW  'next;  /*  Next  raw  material  */ 


The  variable  'raw_mat_no'  contains  the  raw  material 
number  and  the  variable  'cost'  contains  the  cost  of  the  raw 
material  in  dollars.  The  variables  'row'  and  'col'  are 
used  to  store  the  screen  co-ordinates  of  the  raw  material. 
The  raw  materials  are  also  linked  in  a  singly  linked  list 
with  a  NULL  terminator  after  the  last  raw  material. 

3.6.5   Product  Structure 

The  structure  for  a  product  is  defined  as  follows  in 
'opt.h' : 


((define  PRODUCT  struct  products 

PRODUCT! 

int  prod_no;  /*  Product  number  */ 

int  price;  /*  Product  price  */ 

int  qnty_produced;  /*  Quantity  produced  */ 

int  row;  /*  Screen  row  */ 

int  col;  /*  Screen  column  */ 

PRODUCT  *next;  /*  Next  product  */ 
I; 

The  variables  'prod_no'  and  'price'  contain 
respectively  the  product  number  and  the  price  of  the 
product.  The  variable  ' qnty_produced'  contains  the  number 
of    pieces    of     that    product    number    produced    from    the 
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beginning  of  the  simulation.  This  information  is  displayed 
in  the  statistics  window  when  the  simulation  is  in 
progress.  All  the  statistics  functions  are  discussed  in 
detail  in  section  3.9. 

3.6.6   Statistics  Structure 

The  structure  for  statistics  is  defined  as  follows  in 
' opt .h ' : 

#define  STATS  struct  statistics 

STATS ( 

int  fin_row;  /*  Screen  row  for  finance  */ 

int  fin_col;  /*  Screen  column  */ 

int  start_cash;  /*  Starting  cash  for  a  week  */ 

int  cash_now;  /*  Cash  at  this  moment  */ 

int  sales_revenue;  /*  Revenue  from  sales  */ 

int  raw_mat_exp;  /*  Raw  material  expense  */ 

int  mat_hand_exp ;  /*  Material  handling  expense  */ 

int  other_op_exp;  /*  Weekly  operational  expense  */ 

int  net_cash_f low;  /*  Cash  flow  for  previous  week  */ 

I; 

The  variables  'fin_row'  and  'fin_col'  contain  the 
physical  coordinates  for  displaying  the  financial  report  on 
the  statistics  window.  The  contents  and  function  of  other 
variables  are  discussed  in  section  3.9. 

3.7   Event  Generation 

In  the  discussion  about  how  the  events  will  be  placed 
in  the  calendar  in  section  1.6,  it  was  mentioned  that  each 
event  will  spawn  one  or  more  events  so  that  the  simulation 
will  terminate  not  by  running  out  of  events  but  by  running 
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past  the  preset  time  limit  called  "sim_maxtime" .   The 
mechanism  of  event  generation  will  be  discussed  here. 

Creation  of  new  events  will  proceed  as  follows: 

(1)  Each  "clock_tick"  event  will  schedule  another 
"clock_tick"  event  at  time  5  minutes  after  the  present 
clock   tick. 

(2)  The  "purchase"  event  is  an  independent  event  which 
will  be  scheduled  by  the  function  "check_inventory"  if 
the  user  chooses  automatic  replenishment  of  the  raw 
materials.  Purchase  events  can  also  be  scheduled  by 
the  user.  The  function  "check_inventory "  used  for 
scheduling  purchase  events  is  listed  in  ' process. c'  in 
Appendix  A.  This  event  will  not  generate  any 
additional   events. 

(3)  The  "setup"  event  will  schedule  a  "load"  event  at  time 
' time_now  +  setup_time'  if  there  is  at  least  one  part 
waiting  to  be   processed   in   the   pre-area. 

(4)  The  "load"  event  will  schedule  an  "unload"  event  at 
time  ' time_now  +  machining_t ime ' .  It  will  also 
schedule  a  "load"  event  at  time  'time_now  + 
machining_time'  if  there  is  more  than  one  part  waiting 
to  be  processed  in  the  pre-area.  It  also  schedules  a 
"move"  event  at  time  ' time_now  +  machining_time '  if 
there  are  at  least  as  many  parts  as  the  transfer  batch 
in   the   post-area. 

(5)  The  "move"  event  will  move  the  part  to  the  destination 
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department  and  check  to  see  if  there  is  any  machine 
setup  for  that  part  type.  If  there  is  no  machine 
setup  for  that  part  type  and  if  there  are  some  unused 
machines  which  have  not  been  used  from  the  beginning 
of  the  simulation,  it  will  schedule  a  "setup"  event 
for  the  next  minute. 

Load  events  are  also  scheduled  by  the  function 
' check_free_machs '  if  there  are  some  idle  machines  setup 
for  a  part  type  and  there  are  some  parts  of  the  same  type 
waiting  to  be  processed  in  the  pre-area.  In  addition  to 
these  automatic  event  scheduling,  the  user  can  schedule 
primary  and  independent  events  using  the  calendar  edit 
function.  The  events  which  the  user  can  schedule  are 
"setup",  "load",  "purchase"  and  "move".  The  calendar  edit 
function  will  take  care  of  input  validity  in  all  of  the 
above  cases. 

The  simulation  can  be  started  if  a  primary  event  of 
type  'setup'  is  placed  in  the  calendar.  This  can  be  done 
either  by  the  system  automatically  or  by  the  user.  The 
system  will  generate  'setup'  events  using  the  function 

' initial_setup'  if  the  user  chooses  to  operate  in  automatic 
mode.    The  function   ' ini tial.se  tup '   is  listed  in 

' process. c'  in  Appendix  A. 

A  summary  of  the  event  scheduling  process  is  shown  in 
Figure  3.7.   The  same  process  is  shown  in  Figure  3.8  in 
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Figure  3.7   Summary  of  event  scheduling  process 
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terms  of  event  graphs. 
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3.8  Event  Procedures 

Event  procedures  corresponding  to  the  event  types  are 
initialized  in  the  array  of  structure  called 
'  cal_f unctions  '  .  The  declaration  and  initialization  is 
listed  in  the  file  'process. h'  in  Appendix  A  and  is  as 
follows: 

typedef  struct! 

char  name [20];  /*  Event  types  */ 

int  (*fnc)(int,  int ,  int ,  int) ;  /*  Event  procedures  */ 

I CAL_FUNCTIONS ; 

CAL_FUNCTIONS  cal_fncs[]  =  { "clock_tick" ,  advance_clock, 

"purchase",  purchase_rawmat , 

"setup",  setup_machine, 

"load",  load_machine, 

"unload",  unload_machine, 

"move",  move_part, 
"  "  I  ; 

The  following  sections  will  discuss  the  function  of 
each  procedure  in  brief.  Listings  of  all  the  procedures 
are  in  the  file  ' process. c'  in  Appendix  A. 

3.8.1   Advance_Clock 

This  procedure  updates  the  global  variables 
'time_now',  'week_now' ,  'day_now',  'hr_now',  and  'min_now' 
to  those  of  the  respective  event  variables.  It  also 
updates  the  screen  clock.  It  then  schedules  a  new 
"clock_tick"  event  at  time  '  time_now  +  5'.  All  event 
variables    for   the    "clock_tick"    event   are   0. 
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3.8.2   Purchase_Rawmat 


This  procedure  purchases  raw  material  ' raw_mat_no ' 
(event  variable  1)  for  part_type  (event  variable  2)  in 
'qnty'  (event  variable  3) .  (The  fourth  variable  is  a  dummy 
and  is  not  used  by  this  procedure.)  It  then  calculates  the 
raw  material  cost  and  updates  cash  and  expense.  It  also 
updates  the  statistics  structure  in  the  process.  Purchase 
events  are  scheduled  by  a  function  called  ' check_inventory ' 
if  the  user  chooses  automatic  purchase  or  can  be  scheduled 
by  the  user  as  discussed  earlier.  This  function  follows 
the  simplest  inventory  model,  (s,q),  for  placing  the 
orders.  The  model  can  be  explained  pictorially  as  in 
Figure  3.9. 

3.8.3   Setup_Machine 

This  procedure  will  set  up  the  machine  specified  by 
'mach_no'  (event  variable  1)  in  department  'dept_no'  (event 
variable  2)  for  part  type  'repeat,  part_type'  (event 
variables  3  &  4)  .  It  then  updates  the  screen  by  printing 
the  part  type  on  the  machine  along  with  a  blinking  'S' 
which  means  that  the  machine  is  in  setup  state.  It  then 
checks  the  pre-area  for  that  particular  part  type  and 
schedules  a  load  event  at  time  'time_now  +  setup_time'  if 
there  is  at  least  one  part  waiting  to  be  processed. 
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3.8.4  Load_Machine 

The  Load  event  can  take  one  of  the  two  forms  shown 
below: 
Load  'mach_no'  in  'dept_no'  setup  for  ' repeat , par t_type ' 

(or) 
Load  free  machine  in  'dept_no'  setup  for  ' repeat , part_type ' 

In  either  of  these  cases,  the  procedure  searches  for 
the  specified  machine  and  updates  the  variable  'instate'. 
It  also  updates  the  screen  by  printing  a  blinking  '  '  which 
means  that  the  machine  is  in  busy  state. 

The  procedure  then  schedules  an  unload  event  at  time 
'time_now  +  machining__time '  .  If  there  are  more  parts  in  the 
"pre-area"  waiting  to  be  processed,  it  schedules  a  load 
event  at  time  ' time_now  +  machining_time ' .  It  also 
schedules  a  move  event  at  time  ' time_now  +  machining_time ' 
if  there  are  at  least  as  many  parts  in  the  post  area  as  the 
transfer  batch  size. 

3.8.5  Unload_Machine 

The  unload  event  is  of  the  form 

unload  'mach_no'  in  'dept_no'. 

The  part  type  is  implicitly  mentioned.  The  procedure 
finds  the  part  type  by  seeing  which  part  type  that 
particular  machine  is  setup  for.  It  then  updates  the  pre- 
area  and  the  post-area  for  that  particular  part  type  after 
decrementing    the    pre-area     contents     by     1     and     incrementing 
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the  post-area  contents  by  1 .  It  also  updates  the  screen  by 
printing  a  nonblinking  '+'  on  the  machine,  which  means  that 
the  machine  is  idle. 

3.8.6   Move_part 

The  move  event  is  of  the  form 

move  'repeat,  part_type '  from  'dept_no'  in  'qnty'. 

The  destination  for  the  part  is  implicitly  mentioned. 
The  procedure  finds  the  destination  by  searching  the 
routing  matrix.  If  the  destination  is  another  department, 
it  moves  the  part  to  that  department  and  updates  the 
expense  by  adding  material  handling  cost  to  it.  If  the 
destination  is  stores,  it  moves  the  part  to  the  stores  and 
updates  the  cash  by  adding  the  product  price  to  it  and 
updates  expense  by  adding  the  material  handling  cost  to  it. 

If  the  destination  is  another  department  and  there  is 
no  machine  running  that  particular  part  type  and  if  there 
are  some  unused  machines,  it  schedules  a  setup  event  for 
the  next  minute. 

3.9   Statistics 

The  statistics  window  consists  of  three  reports; 
financial,  sales,  and  activation.  The  first  one,  financial 
report  consists  of  ' s t ar t ing_cash ' ,  'cash_now' , 
'  raw_material_expenses  '  ,   'material_handling_expenses  '  , 
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'other_operational_expenses ' ,    ' revenue_f rom_sales ' ,    and 
'net_cash_f low' . 

The  ' starting_cash '  is  recorded  to  be  the  'cash_now' 
at  the  beginning  of  each  week.  The  'cash_now'  reflects  the 
cash  on  hand  at  any  moment.  Raw  material  expense  is 
calculated  and  updated  by  ' purchase_rawmat  '  procedure. 
Material  handling  expense  is  updated  by  the  'move_part' 
procedure.  Revenue  from  sales  is  also  updated  by 
'move_part'  procedure. 

Other  operational  expense  and  net  cash  flow  are 
calculated  at  the  end  of  each  week. 

The  sales  report  shows  the  number  of  pieces  of  each 
part  produced  from  the  beginning  of  the  simulation  at  any 
moment.  This  report  is  updated  by  the  'move_part' 
procedure . 

The  activation  report  shows  the  percentage  of  total 
time  each  machine  spent  in  setup,  production,  and  idle 
states.  The  event  procedures  which  change  the  state  of  the 
machines  namely,  setup,  load,  and  unload  mark  the  time  of 
the  state  change  and  update  the  appropriate  variable 
'time_idle',  ' time_setup ' ,  or  'time_busy'  according  to  what 
state  the  machine  was  before  state  change. 

Then  the  percent  time  the  machine  spent  in  each  of  the 
three  different  state  is  calculated  as: 
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total  time  =  time_setup  +  time_busy  +  time_idle 

time_busy 

prod*  = *  100 

total  time 


time_setup 

setup%  = *  100 

total  time 


idle%  =  100  -  (prod%  +  setup%) 
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CHAPTER  4 
TECHNICAL  DETAILS  ABOUT  THE  PROGRAM 

4 . 1  Introduction 

The  simulator  has  some  hardware  dependent  features 
which  need  explanation.  The  program  uses  BIOS  functions  to 
do  some  trivial  tasks  which  increases  its  reliability. 
Explaining  these  can  help  in  the  future  development  of  the 
program  by  someone  else  who  is  not  familiar  with  these 
functions.  In  addition,  this  chapter  will  give  some 
insight  into  the  video  output  and  control,  input  validity 
checking  and  other  programming  features  which  give  speed 
and  robustness  to  the  program. 

4.2  Checking  the  Display  Adapter 

Most  of  the  hardware  dependent  features  are  listed  in 
the  file  'utils.c'  which  appears  in  Appendix  A.  The 
function  'initialize'  listed  in  'utils.c'  does  some 
hardware  checks  before  the  program  starts  execution.  One 
such  check  is  for  the  video  adapter  driving  the  display. 
Since  the  simulator  uses  four  pages  of  video  buffer  for  its 
output  to  the  different  windows,  it  is  necessary  to  check 
if  the  required  memory  is  available  before  attempting  to 
write  to  it.  There  are  four  types  of  video  adapters 
available.  They  are  Monochrome  adapter.  Color  Graphics 
Adapter  (CGA),  Enhanced  Graphics  Adapter  (EGA),  Virtual 
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Graphics  Adapter  (VGA).  Out  of  these,  the  only  type  which 
does  not  support  multipage  output  is  the  Monochrome 
adapter.  The  most  popular  adapter  is  the  CGA  which 
features  16  Kilobytes  of  video  buffer  -  enough  to  output 
four  screen  pages  in  80-column  text  mode.  The  EGA  is  a 
more  sophisticated  adapter  which  has  enough  memory  for  16 
screen  pages.  The  VGA  supports  both  CGA  and  EGA  modes  and 
offers  additional  features  for  high  quality  graphics. 
Since  the  simulator  needs  only  4  pages  of  video  buffer,  it 
requires  at  least  CGA  to  operate.  The  only  adapter  which 
cannot  support  this  program  is  the  Monochrome  adapter.   So 

the  function  'initialize'  uses  the  BIOS  function  'OF  hex' 

12 
in  interrupt  '10  hex'  to  get  the  current  display  mode. 

If  the  display  mode  is  found  to  be  monochrome,  it  displays 

an  error  message,  "OPT:  This  program  requires  an  EGA/CGA 

adapter",  and  terminates  execution. 

If  a  monochrome  adapter  is  not  detected,  it  means  the 
program  can  safely  operate  on  the  hardware.  So  the 
function  'initialize'  now  sets  the  hardware  according  to 
the  requirements  of  the  program  and  returns  control  to  the 
main  routine.  The  function  also  checks  to  see  if  the 
adapter  is  in  mode  3  which  is  80-column  color  text  mode. 


If  it  is  not,  it  is  changed  to  that  mode  by  the  function 
'_setvideomode '  .  The  function  also  hides  the  hardware 
cursor  by  a  BIOS  call,  since  the  output  will  be  by  direct 
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video  access  and  not  through  the  hardware  cursor. 

Among  the  standard  features  of  MS-DOS  on  the  IBM  PC 
compatible  is  the  "Control-C"  and  "Control-Break" 
interrupts  which  are  used  to  terminate  the  currently  active 
process  and  return  control  to  the  parent  process  —  usually 
the    MS-DOS    command    interpreter.  In    other    words,     if    a 

program  is  executing,  accidental  press  of  "Control-C"  will 
abort  the  program  and  return  control  to  DOS.  This  can 
cause  unexpected  events  if  the  program  is  executing  some 
critical  process  at  the  time  of  aborting.  An  elegant  way 
to  avoid  this  problem  is  to  substitute  a  Control-C  handler 
instead  of  the  one  which  comes  with  the  DOS.  This 
substitution  is  done  by  the  function  'initialize'  as 
follows : 

signal ( SIGINT ,  handler ) ; 

The  call  to  the  function  'signal'  points  the  Control-C 
interrupt  vector  to  the  procedure  'handler'  which  appears 
in  'utils.c'.  This  function  confirms  abortion  from  the 
user  and  terminates  gracefully  if  the  user  really  wishes  to 
abort  the  program. 

4.3  Hiding  And  Restoring  The  Hardware  Cursor 

The  hardware  cursor  is  hidden  by  the  function 
'initialize'  as  mentioned  earlier.  Since  the  user  can 
interact  with  the  program,  it  will  be  more  user-friendly  if 
the    cursor    is    restored    at    times    when    the    program    prompts 
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the  user  for  an  input.  Restoration  of  the  cursor  is  done 
by  the  function  ' restore_cursor '  listed  in  'utils.c'.  It 
is  done  by  the  BIOS  function  '01  hex'  in  interrupt  '10  hex' 
which  is  the  function  for  setting  the  cursor  type.  After 
the  input  is  over,  the  cursor  is  again  hidden  by  the 
function  'hide_cursor '  using  the  same  BIOS  function. 

4.4   Direct  Video  Output 

A  standard  CGA  adapter  has  4  screen  pages  of  video 
buffer  as  mentioned  earlier.  A  schematic  representation  of 
this  buffer  is  given  in  Figure  4.1.  The  CGA  memory  starts 
at  segment  B800H  and  extends  upward  for  16  Kilobyte.  The 
current  visual  screen  page  is  refreshed  to  the  video  screen 
60  times  every  second.  All  the  application  need  to  do  is 
to  write  display  changes  to  this  video  memory  and  the 
changes  will  be  automatically  reflected  on  the  screen  in 
the  next  l/60th  of  a  second.  This  fact  led  to  the 
development  of  a  direct  access  video  library  'video. lib', 
whose  individual  component  source  codes  are  listed  in 
Appendix  A.  These  library  functions  are  used  throughout 
the  program  for  fast  and  accurate  video  updates. 

Though  the  program  writes  to  all  the  video  pages  at 
the  same  time,  the  user  will  be  able  to  see  only  one  page 
at  a  time.  The  user  can  flip  between  pages  using  the 
appropriate  keys.   The  flipping  of  the  video  page  is  done 
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using  the  BIOS  function  '05  hex'  in  interrupt  '10  hex' 
which  is  the  function  used  to  select  the  current  display 
page. 

4.5   Printer  Control  Functions 

The  print  function  in  the  program  can  print  any  page 
currently  displayed  on  the  screen.  The  actual  printing  is 
done  by  using  the  BIOS  interrupt  '05  hex'  which  is  the 
print  screen  interrupt.  To  make  the  output  more 
presentable,  a  heading  for  the  screen  dump  and  a  formfeed 
after  the  dump  are  also  printed.  These  are  printed  using 
direct  parallel  port  controls. 

Using  direct  port  control  increases  the  reliability  of 
the  print  operation  and  makes  error  trapping  possible.  If 
the  program  attempts  to  print  something  to  the  printer  by 
using  high-level  print  functions,  it  will  cause  a  critical 
time-out  error  message,  "Printer  not  ready  -  Abort,  Retry, 
Ignore?",  to  appear  on  the  screen  if  the  printer  is  not 
ready.  This  is  undesirable  in  a  program  which  outputs  to  a 
static  screen.  Critical  errors  can  be  trapped  if  the 
output  is  sent  to  the  port  directly  by  the  program  instead 
of  through  DOS.  The  simulator  prints  the  heading  and 
formfeed  using  the  BIOS  function  '00  hex'  in  interrupt  '17 
hex'  which  is  the  function  for  writing  a  character  to  the 
printer.    The  calling  sequence  of  this  interrupt  is  listed 
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in  the  function  'prtprint'  in  the  file  'plib.asm'  in 

Appendix  A.   This  file  is  the  assembly  language  listing  of 

9   13 
the  printer  port  ROM  BIOS  interface  functions.  '      The 

function  'print_scr'  listed  in  'print. c'  in  Appendix  A, 

calls  'prtprint'  to  print  a  character  and  checks  to  see  if 

the  character  is  printed  correctly.   The  character  can  not 

be  printed  if  the  printer  is  not  ready.   If  the  printer  is 

not  ready,  it  displays  an  error  message  on  the  screen  and 

waits  for  the  user's  choice  to  either  abort  the  printing 

process  or  to  continue  after  setting  the  printer  ready. 

4.6   Memory  Model  of  The  Simulator 

The  simulator,  as  given  on  the  disk  in  Appendix  B,  is 
compiled  in  the  small  memory  model  .  This  program  thus 
occupies  two  default  segments  -  one  for  code  and  one  for 
data.10  A  memory  map  for  the  small  memory  model  is  given 
in  Figure  4.2.  Each  segment  is  a  maximum  of  64  Kilobytes, 
and  this  is  sufficient  memory  for  the  program  to  handle 
fairly  large  simulation  problem.  If  more  memory  is  needed 
for  dynamic  allocation,  the  program  can  be  compiled  using 
the  compact  memory  model  which  allows  one  code  segment  and 
multiple  data  segments.  A  memory  map  for  the  compact 
memory  model  is  given  in  Figure  4.3.  This  change  in  the 
memory  model  may  require  some  changes  in  the  program  code 
also  since  the  dynamic  memory  allocations  are  to  be  made 
with  the  'far'  keyword  rather  than  the  default  'near'. 
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4.7.  Initial  Data  Input  Through  Infile 

The  input  file  'in. opt'  is  listed  in  Appendix  A.  It 
is  also  on  the  disk  in  Appendix  B  along  with  an  executable 
version  of  the  simulator  and  a  user's  manual.  The 
simulator  can  accept  any  file  as  input  as  long  as  it  is  in 
a  specific  format  which  can  be  read  by  the  program  to 
understand  the  input.  It  is  suggested  that  the  user  make  a 
copy  of  'in. opt'  before  attempting  to  modify  it.  The 
strings  describing  the  corresponding  numbers  are  in  the 
input  file  only  as  a  guidance  for  the  user  and  are  omitted 
by  the  program  during  input.  The  sequence  in  which  the 
program  reads  the  variables  can  be  understood  by  seeing  the 
listing  for  the  function  'read_data'  in  the  file  ' input. c' 
in  Appendix  A.  Though  the  strings  are  omitted  by  the 
program,  they  cannot  be  removed  nor  can  more  strings  be 
added  in  the  input  file.  This  is  one  of  the  features  which 
takes  away  the  user- friendliness  of  the  simulator. 
Suggestions  for  improving  this  is  given  in  Chapter  6.  An 
executable  program  called  'tstfscan'  is  included  in  the 
disk  to  check  the  validity  of  the  input  file.  This  program 
reads  the  input  file  specified  by  the  user  and  displays  the 
variables  on  the  screen  so  the  user  can  check  if  that  is 
what  he  intended  the  variables  to  be. 

4.8   More  Details  About  Program  Operation 

Apart  from  the  technical  details  about  the  program, 
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there  are  some  more  details  about  the  operation  of  the 
program  itself  which  need  some  discussion.  This  will  help 
in  the  future  expansion  of  the  program  or  in  the 
development  of  a  related  application.  The  physical  layout 
of  the  screen  and  the  exact  location  where  the  variables 
'row'  and  'col'  point  to  is  one  such  detail  which  needs 
discussion. 

4.8.1   Physical  Layout  of  The  Screen 

A  sample  layout  of  the  overview  window  is  given  in 
Figure  4.4.  The  variable  'row'  and  'col'  in  the  machine 
structure  point  to  the  location  where  the  machine  number  is 
displayed.  Details  corresponding  to  the  machine  are 
printed  in  the  appropriate  location  in  the  machine  area  by 
calculating  the  offset  from  this  location.  Each  machine 
has  this  information  stored  in  its  structure  and  hence 
simplifies  offset  calculation  by  making  it  relative  only  to 
the  machine  in  consideration. 

The  variable  'row'  and  'col'  in  the  part  information 
structure  points  to  the  first  character  location  in  the 
pre-area.  The  post-area  contents  corresponding  to  that 
part  type  are  printed  on  the  screen  by  calculating  the 
column  offset  of  the  post-area  from  the  pre-area.  Again, 
as  with  the  machine,  part  information  also  has  the  'row' 
and  'col'  information  stored  for  each  part  type  which 
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simplifies  offset  calculation.  The  variables  'row'  and 
'col'  in  the  department  structure  point  to  the  location 
where  the  machine  number  for  the  first  machine  is 
displayed.  These  variables  are  read  from  the  data  file  and 
are  used  to  calculate  the  offset  for  the  'row'  and  'col' 
variables  in  machine  and  part  information  structures 
associated  with  that  department.  Calculation  and 
assignment  of  these  variables  is  done  by  the  function 
'read_data'    listed   in    'input. c'    in  Appendix  A. 

Similarly,  the  'row'  and  'col'  variables  in  the  raw 
material  and  product  structures  point  to  the  first 
character  location  where  the  variables  'raw->cost'  and 
' product->qnty_produced'    are   displayed. 

4.8.2.   Logic  of  Event  Insertion 

The  events  that  can  be  scheduled  by  the  user  are 
'purchase',  'setup',  'load',  and  'move'.  Of  these,  only 
'purchase'  does  not  need  any  logical  check.  The  purpose  of 
the  purchase  event  is  to  search  for  the  starting  department 
for  that  particular  part  type  in  the  routing  matrix, 
increase  the  contents  of  the  corresponding  pre-area  and  to 
update  expense. 

The  'set  up'  event  needs  some  logical  checking  and 
decision  making.  If  the  user  wants  to  set  up  a  machine  for 
a  part  type  when  it  is  idle,  a  setup  event  is  scheduled  for 
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the  next  minute.  But  if  the  user  wants  to  set  up  a  machine 
for  a  part  type  when  it  is  already  setting  up  for  another 
part  type,  the  'get_change'  function  asks  the  user  if  he 
wants  to  waste  the  previous  setup.  If  the  user  says  'yes', 
the  previous  setup  is  wasted  and  an  alternative  setup  event 
is  scheduled  for  the  next  minute.  It  also  searches  the 
calendar  list  for  any  scheduled  load  events  for  that 
machine  corresponding  to  the  previous  setup  and  deletes 
them. 

If  the  user  wants  to  set  up  a  machine  for  a  part  type 
when  it  is  processing  another  part  type,  the  'get_change' 
function  searches  the  calendar  for  any  scheduled  load 
events  and  deletes  them.  It  then  schedules  an  alternative 
setup  event  after  the  unload  event  corresponding  to  the 
part  type  the  machine  is  processing. 

The  load  event  also  needs  some  logical  checking  if  the 
user  schedules  one.  The  'get_change'  function  will  check 
if  at  least  one  machine  is  set  up  for  the  part  type  user 
wishes  to  process. 

A  'move'  event  cannot  be  scheduled  if  the  post-area 
for  the  part  type  in  the  concerned  department  is  empty.  It 
also  is  invalid  when  the  user  tries  to  specify  a  transfer 
batch  greater  than  the  contents  of  the  post  area.  These 
validity  checks  are  done  by  the  function  ' get_change ' . 
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CHAPTER  5 


OPERATIONAL  MANUAL 


5.1  Introduction 

This  operational  manual  will  give  some  insight  into 
the  features  of  the  simulator,  an  executable  copy  of  which 
-is  on  the  diskette  in  Appendix  B.  A  modified  version  of 
this  manual  is  included  in  the  diskette.  The  manual  also 
features  a  menu  map  to  help  in  efficient  use  of  the 
simulator's  capabilities. 

5.2  Hardware  Requirements 

The  simulator  is  suitable  for  use  on  IBM-PC  and 
compatibles  with  a  Color  Graphics  Adapter  (CGA)  or  an 
Enhanced  Graphics  Adapter  (EGA) .  The  executable  version  of 
the  simulator  is  on  a  5  1/4"  double  sided  double  density 
floppy  disk  and  hence  requires  a  floppy  disk  drive.  The 
program  will  display  an  error  message  and  terminate  if  used 
with  a  monochrome  display  adapter. 

5.3  Getting  Started 

The  simulator  is  started  by  inserting  the  disk  in  a 
disk  drive  and  typing  'SIM'  followed  by  an  Enter.  The 
program  checks  the  hardware  for  the  availability  of 
Color /Graphics  adapter.   It  then  prompts  for  an  input  file 
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name.  A  sample  input  file  "in.sim"  is  provided  in  the 
diskette.  To  execute  this  sample  problem,  'in'  should  be 
typed  as  the  the  input  file  name. 

5.4   Initial  Options 

The  initial  display  screen  consists  of  the  zoomed 
window  showing  the  first  department  and  the  variables  that 
can  be  changed  during  the  simulation.  The  screen  might 
produce  'snow'  in  the  process  of  painting  the  window  if  the 
simulator  is  run  on  an  original  IBM-PC.  This  is  due  to  the 
direct  video  output  to  the  screen.  Of  the  variables 
displayed  on  the  screen,  two  -  'hours  per  day'  and  'days 
per  week'  -  can  be  changed  only  before  starting  the 
simulation. 

The  program  first  prompts  the  user  if  purchase  events 
are  to  be  scheduled  automatically.  A  choice  of  'yes' 
automatically  replenishes  inventory  when  the  simulation  is 
in  progress.  A  choice  of  'no'  requires  the  user  to 
schedule  purchase  events. 

The  second  prompt  is  if  the  setups  are  to  be  done 
automatically.  If  the  user's  choice  is  'yes',  setups  are 
done  automatically.  If  the  choice  is  'no',  the  user  should 
schedule  setup  events  to  start  the  simulation. 

The  next  question  is  if  the  material  handling  should 
be  automatic.   If  the  user's  choice  is  'yes',  material 
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handling  is  done  automatically  in  the  pre-specif ied 
transfer  batch  size.  If  the  choice  is  'no',  the  user 
should  schedule  'move'  events. 

The  above  modes  can  be  toggled  between  'Auto'  and 
'Manual'  by  the  ' change_mode '  function  which  is  involked  by 
pressing  'ALT-M'  from  the  overview  window  any  time  during 
the  simulation. 

The  program  then  asks  the  user  if  any  of  the  variables 
displayed  on  the  screen  needs  change.  If  the  user  chooses 
to  alter  some  variables,  the  program  prompts  for  a  new 
value  for  the  selected  variable.  Instructions  on  how  to 
change  the  variables  are  provided  in  Section  5.7.2.5.  The 
display  is  switched  to  the  overview  window  after  accepting 
the  changes. 

If  the  user  chooses  not  to  change  any  variables,  the 
display  is  switched  immediately  to  the  overview  window. 
The  simulation  starts  if  the  user  chooses  automatic  setup. 
Since  the  setup  event  is  the  primary  event  which  can  start 
the  simulation,  the  user  should  schedule  setup  events  to 
start  the  simulation  if  the  program  is  in  manual  setup 
mode. 

5 . 5  The  Overview  Window 

This  window  has  information  about  all  the  departments 
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and  the  routing  for  all  the  part  types  displayed.  It  also 
contains  information  about  the  raw  materials,  products, 
cash  on  hand,  expense  from  the  beginning  of  the  current 
week,  and  the  raw  material-product  relationship.  It 
features  a  clock  in  24-hour  format.  Also  displayed  are  the 
number  of  weeks  from  the  beginning  of  the  simulation  and 
the  day  of  the  current  week.  The  window  has  a  menu  bar  in 
the  bottom  of  the  screen  which  shows  the  different  options 
available  to  interact  with  the  program.  An  option  is 
selected  by  pressing  the  highlighted  key  for  the  desired 
function.  The  menu  bar  and  options  are  discussed  further 
in  Section  5.7. 

5.6  Description  of  Symbols  in  the  Overview  Window 

There  are  some  symbols  displayed  on  the  machine  image 
and  to  the  sides  of  the  work-in-process  areas  which  need 
explanation.  A  blinking  'S'  on  the  machine  image  means 
that  the  machine  is  being  set  up  for  the  part  type  printed 
on  it.  A  blinking  '  '  means  that  the  machine  is  processing 
the  part  type  printed  on  it.  A  non-blinking  '  +  '  sign  on 
the  machine  means  that  the  machine  is  idle,  and  is  set  up 
for  the  part  type  printed  on  it.  The  work-in-process  areas 
have  the  part  types  displayed  on  the  either  side  of  them. 
The  number  beside  the  part  type  is  the  repetition  count  for 
that  part  type  in  that  department.  This  is  decided  from 
the  routing  matrix  which  is  read  from  the  input  file.   For 


65 


example  if  the  part  type  'B'  is  to  be  processed  by 
Department  3  twice,  then  the  work-in-process  area  for 
department  3  will  have  two  areas  for  the  part  type  'B',  one 
labled  'B'  and  the  other  labled  'IB'.  This  is  to  avoid 
mixing  up  the  parts  of  the  same  type  in  different  stages  of 
processing. 

5.7   Menu  Functions 

The  functions  in  the  menu  are  of  two  major  categories. 
They  are  functions  which  affect  the  simulation  and  those 
which  don't.  The  following  sections  give  brief 
descriptions  for  each  of  the  menu  functions. 

5.7.1   Functions  Which  Affect  The  Simulation 

The  following  sections  will  discuss  the  functions 
which  affect  the  simulation. 

5.7.1.1   Break  Point 

The  break  point  is  used  to  freeze  the  simulation  at 
user  specified  times  so  the  user  can  analyse  the  system 
state  at  those  times  before  resuming.  The  break  point  can 
be  changed  by  the  user  by  pressing  the  'b'  key  when  the 
simulation  is  in  progress  or  when  it  is  frozen.  If  the 
simulation  is  in  progress,  it  is  frozen.  The  user  is 
prompted  for  a  new  break  point.  The  old  value  of  the  break 
point  is  displayed  in  the  prompt  line.   The  break  point  is 
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entered  in  minutes.  There  is  a  mandatory  break  at  the  end 
of  each  week  and  so  this  function  will  not  accept  a  value 
greater  than  the  number  of  minutes  in  a  week. 

5.7.1.2  Freeze 

This  function  is  invoked  by  pressing  the  'f'  key  on 
the  keyboard.  It  freezes  the  simulation  and  displays  the 
setup  times  to  the  left  side  and  machining  times  per  part 
to  the  right  side  of  the  machines  in  all  departments.  The 
simulation  can  be  resumed  by  pressing  the  'r'  key. 

5.7.1.3  Stop 

This  function  is  invoked  by  pressing  the  's'  key  when 
the  simulation  is  in  progress  or  when  it  is  frozen.  The 
program  is  terminated  gracefully  after  confirmation  from 
the  user.  The  simulation  can  be  resumed  normally  by 
answering  'no'  for  the  confirmation. 

5.7.1.4  Pace  Keys 

The  pace  at  which  the  simulation  is  perfomed  can  be 
changed  by  the  gray  '+'  and  '-'  keys  on  the  numeric  keypad. 
There  are  5  different  paces  available;  'pace  1'  is  the 
fastest  and  'pace  5'  is  the  slowest. 

5.7.1.5  Change 

This  function  is  invoked  by  pressing  the  'c'  key  on 
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the  keyboard.   It  takes  different  actions  in  different 
windows . 

In  the  overview  window,  it  works  in  the  same  way  as 
the  'AddEvent'  function  in  the  calendar  edit  mode.  The 
'AddEvent'  function  is  described  in  Section  5.7.2.2. 

If  called  from  the  zoom  window,  this  function  allows 
the  user  to  change  the  variables  on  the  zoom  screen.  The 
variables  that  can  be  changed  blink  when  the  function 
prompts  for  a  new  value  for  that  variable.  The  current 
value  can  be  left  unchanged  by  pressing  the  return  key 
without  entering  any  number.  The  function  checks  for  the 
validity  and  the  range  of  the  input.  If  the  user  enters  a 
valid  entry,  it  accepts  the  new  value  and  modifies  the 
display.  It  then  prompts  for  a  new  value  for  the  next 
variable  until  all  the  variables  that  can  be  changed  are 
confirmed  correct. 

5.7.1.6   Mode 

The  modes  of  'purchase',  'setup',  and  'move'  are 
displayed  in  the  overview  window  and  can  be  changed  by 
pressing  'ALT-M'  at  any  time.  The  modes  can  be  toggled  by 
pressing  the  space  bar  or  can  be  left  as  it  is  by  pressing 
return.  The  hot  key  for  changing  the  mode  is  not  displayed 
in  the  menu. 
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5.7.2   Calendar  Edit  Mode 

The  simulator  goes  into  the  edit  mode  if  the  'e'  key 
is  pressed  when  the  calendar  window  is  displayed.  The  menu 
changes  and  the  user  now  can  choose  to  '  DeleteEvent  '  , 
'AddEvent',  or  quit  edit  mode.  Pressing  the  'Escape'  key 
quits  the  edit  mode.  The  functions  'DeleteEvent'  and 
'AddEvent'  are  described  in  the  following  sections. 

5.7.2.1  Delete  Event 

The  user  can  delete  any  nonmandatory  event,  from  the 
calendar  by  selecting  the  event  to  be  deleted  and  pressing 
the  'Del'  key  in  the  numeric  keypad.  The  selected  event 
blinks  and  is  marked  deleted  by  a  '*'  in  the  modifier  field 
if  deleted.  The  events  are  selected  by  the  scan  keys 
'PgUp',  'PgDn',  'up  arrow',  and  'down  arrow'.  A  deleted 
event  can  be  undeleted  by  selecting  that  event  and  pressing 
the  'Ins'  key  on  the  numeric  keypad.  Pressing  the  'Escape' 
key  after  the  deletion  is  done,  quits  'DeleteEvent'. 

5.7.2.2  Add  Event 

This  function  is  used  to  schedule  user  specified 
events.  The  function  gives  a  menu  of  the  possible  user 
schedulable  events  namely,  'purchase',  'setup',  'load',  and 
'move'.  A  required  event  can  be  scheduled  by  pressing  the 
corresponding  highlighted  letter.  The  function  then 
prompts  for  the  event  variables  to  be  associated  with  that 
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event  type. 

5.7.3   Functions  Which  Don't  Affect  The  Simulation 

The  following  sections  will  discuss  the  functions 
which  do  not  affect  the  simulation. 

5.7.3.1  Functions  To  Change  The  Display  Window 

The  desired  display  window  can  be  selected  by  pressing 
the  function  key  associated  with  it.  The  simulator  uses 
four  windows  to  output  the  results  of  the  simulation.  They 
are  listed  with  the  associated  keys  below: 

'Fl'  -  Overview  window 

' F2 '  -  Zoom  window 

'F3'  -  Calendar  window 

'F4'  -  Statistics  window 
where  'Fl',  'F2',  'F3',  and  'F4'  refer  to  the  function  keys 
on  the  keyboard. 

5.7.3.2  Print  Function 

This  function  dumps  the  current  screen  on  the  printer 
after  printing  a  heading  corresponding  to  the  window 
displayed  on  the  screen.  This  function  freezes  the 
simulation  until  the  printing  is  complete  if  the  simulation 
is   not    already   frozen. 
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5.7.3.3   Scan  Keys 

The  scan  keys  'PgUp',  'PgDn',  'up  arrow',  and  'down 
arrow'  can  be  operated  only  in  the  calendar  window.  They 
are  used  to  scan  through  the  calendar  list.  They  can  be 
used  when  the  simulation  is  in  progress  or  when  it  is 
frozen. 

5.8   Summary  of  Menu  Functions 

A  summary  of  all  the  menu  functions  of  the  simulator 
is  given  in  the  form  of  a  Menu  Map  in  Figure  5.1. 
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Figure  5.1   Menu  Map  of  the  Simulator 
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CHAPTER  6 
SUGGESTIONS  FOR  EXPANDING  THE  SIMULATOR 

6 . 1  Introduction 

The  simulator  is  menu-driven  and  has  graphics  output 
which  makes  it  user-friendly.  It  is  suitable  for  use  as  an 
instructional  tool  even  for  students  who  have  little 
knowledge  about  computers.  The  students  can  explore  the 
rules  of  Optimized  Production  Technology  and  understand  the 
dynamics  of  production  control  by  using  the  simulator. 

Due  to  its  modular  design,  further  expansion  of  the 
simulator  to  suit  various  needs  is  possible  without  redoing 
much  of  the  work  done  already.  This  chapter  will  explore 
the  possible  expansions  to  the  simulator  and  will  give  some 
suggestions  in  implementing  them. 

6.2  Recording  Calendar 

Since  this  simulator  runs  at  a  slow  pace,  it  would  be 
an  invaluable  addition  if  the  user  is  able  to  save  the 
calendar  and  other  related  data  on  the  disk  and  continue 
from  that  point  at  some  other  time.  This  would  save  a  lot 
of  time  if  the  user  wants  to  run  the  same  problem  again. 
Another  reason  why  the  user  would  want  to  save  the  calendar 
at  any  time  would  be  to  try  two  different  alternatives  from 
that  particular  point  and  evaluate  them  by  observing  the 


73 


system  performance. 

Since  disk  operation  involves  lot  of  error  checking, 
writing  the  calendar  and  the  system  state  to  the  disk  will 
involve  excessive  coding.  The  function  'read_data'  in  file 
' input. c'  listed  in  Appendix  A,  should  then  be  modified  to 
look  for  a  calendar  list  in  the  input  file.  If  the 
calendar  entries  are  found,  the  simulation  should  start 
from  the  intermediate  point.  If  the  calendar  entries  are 
not  found,  the  simulation  should  start  from  the  beginning. 

The  'read_data'  function  should  also  take  care  of 
validity  checking  of  the  calendar  file  as  there  are  chances 
of  the  file  being  corrupted  after  it  is  written. 

6.3   Creation  of  Input  File 

The  simulation  is  started  from  an  input  file  which  has 
values  for  all  the  variables  which  define  the  problem.  It 
was  mentioned  in  Chapter  4  that  this  file  should  be  of  a 
specific  format  for  the  program  to  understand  it.  Though  a 
program  for  testing  the  validity  of  the  input  file  is 
included  with  the  simulator,  it  would  be  desirable  if  the 
user  is  able  to  create  a  valid  input  file  through  another 
front-end  program.  This  program  for  creating  the  input 
file  can  query  the  user  for  various  inputs  and  write  a 
valid  input  file  for  the  simulator  so  the  user  need  not 
check  its  validity  after  creation. 
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6.4  Random  Variations  in  Setup  and  Machining  Times 

The  simulator  discussed  here  does  not  have  the 
capability  of  introducing  random  variabilities  to  the  setup 
and  machining  times.  Random  variabilities  were  avoided  to 
aid  in  easier  reliability  checking  and  faster  program 
development.  Addition  of  this  feature  involves  only  a  few 
lines  of  extra  code.  A  function  for  generating  pseudo 
random  numbers  should  be  written.  This  function  should  add 
variabilities  to  the  setup  and  machining  times  with  the 
user  specified  times  as  the  mean  value. 

6.5  Change  Setup  and  Machining  Times  During  Simulation 

Allowing  changes  to  the  setup  times  and  the  machining 
times  when  the  simulation  is  in  progress  will  make  it 
easier  to  evaluate  design  alternatives.  It  can  avoid 
starting  up  the  simulation  again  with  a  new  input  file  with 
changed  setup  and  machining  times.  Variations  in  the  raw 
material  costs  and  product  prices  during  the  simulation 
will  also  help  in  evaluating  design  alternatives. 

6.6  Flexible  Event  Scheduling 

The  simulator  schedules  any  user  specified  event  at 
the  next  minute  or  at  the  earliest  time  the  resource 
becomes  available.  It  will  be  convenient  if  the  user  is 
allowed  to  schedule  an  event  by  specifying  the  event  time 
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in  addition  to  the  event  type.  This  can  be  done  by- 
prompting  the  user  for  an  event  time.  The  event  time 
should  be  got  from  the  user  in  week,  day,  hour,  and  minute 
and  should  be  converted  into  a  long  value  by  using  the 
function  '  string_to_time '  listed  in  's_conv.c'  in  Appendix 

A. 

6.7  Constraints  On  The  Products 

Another  desirable  feature  of  the  simulator  would  be  to 
limit  the  number  of  each  type  of  products  produced  by  the 
shop.  The  maximum  number  of  products  that  can  be  absorbed 
by  the  market  can  be  specified  in  units/week  by  the  user 
during  the  beginning  of  the  simulation.  The  scheduling 
procedures  should  then  be  modified  to  act  according  to 
these  constraints. 

6.8  Other  Features 

Other  features  which  will  enhance  the  appearance  of 
the  simulator  are  on-line  help  and  a  pull  down  menu  system. 
Since  both  of  the  above  mentioned  enhancements  involve 
similar  operations  like  copying  a  portion  of  the  screen  and 
restoring  it,  they  can  be  implemented  relatively  easily  by 
developing  a  library  function  for  the  purpose. 

6.9  Conclusion 

Various  stages  involved  in  the  development  of  a  next- 
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event  simulator  were  discussed.  The  simulator,  which  is 
the  result  of  this  effort,  gives  a  new  approach  to  next- 
event  simulation  in  allowing  the  user  to  control  the  flow 
of  the  simulation  when  it  is  actually  in  progress. 

The  simulator  is  designed  to  run  on  an  IBM-PC  or 
compatible  with  a  Color /Graphics  Adapter.  It  is  suitable 
for  use  as  an  instructional  tool  for  students  in 
understanding  the  rules  of  Optimized  Production  Technology. 
Suggestions  for  enhancement  of  the  simulator  is  also 
presented  along  with  the  technical  details  involved  in  its 
operation.  These  suggestions  along  with  the  documented 
source  code  of  the  simulator  presented  in  the  Appendix,  can 
help  in  the  future  enhancement  of  the  simulator  or  in  the 
development  of  a  related  application. 
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APPENDIX   A 


Project  Makefile 


MAKEFILE  Honda;,  January  9,  1989 

CC1«  cl  It 

CC2=  cl 

0BJS1=  sin-caIendar+process+setscrts_con»tiitiH+change 

OBJS2=  input+freeze+stat*piibtprint+define+zooi 
PATH= 

SI«OBJSl=  sii.obj  calendar. obj  process, obj  setscr.obj  s  conv.obj  utils.obj  change. obj 
SIK0BJS2=  input. obj  freeze. obj  stat.obj  plib.obj  print. obj  define. obj  zooi.obj 

sii  : 

lake  siiobjsl 

take  siiobjsJ 

■ake  sii.exe 

siiobjsl  :  SISIK0BJS1) 
siiobjs2  :  SISI80BJS2I 

sii.exe  :  SISIIMBJS1)  SISIK0BJS2I 
link  SI0BJSll*$IOBJS2l,,nul, video; 

sii.obj  :  sii.c  SIPATHIvi.h  SIPA7Hlkeydefs.il  SIPATHIsii.h  SIPAIBIstd.h 

SlCCll  sii.c 
process. obj  :    process. c  SIPATHIvi.h  SIPATHIprocess.h  SIPATHIsii.h  SIPATHIstd.h 

SlCCll  process. c 

calendar. obj  :    calendar. c  SIPAIHIcalendar.il  SIPATBIsii.b  SIPATHIvi.h  SIPATHIkeydefs.il  SIPATHIstd.h 

5-. CC1J  caienoar. c 
s_conv.obj  :     s.conv.c  SIPATHIcalendar.h  SIPATHIsii.h 

SlCCll  s_conv.c 

utils.obj  :     atils.c  SIPATHIstd.h  SIPATHIdoslib.h  SIPATHIkeydefs.h  SIPATHIbioslib.h  SIPATHIsii.h  SIPATHIvi.h 

SlCCll  utils.c 
setscr.obj  :     setscr.c  SIPATHIsii.h  SIPATHIvi.h 

SlCCll  setscr.c 
input. obj  :     input. c  SIPATHIsii.h 

SlCCll  input. c 
tstfscan.obj  :    tstfscan.c  SIPATHIsii.h 

SlCCll  tstfscan.c 
freeze. obj  :     freeze. c  SIPATHIsii.h  SIPATHIvi.h  SIPATHIstd.h 

SlCCll  freeze. c 
stat.obj  :  stat.c  SIPATHIsii.h  SIPATHIvi.h 

SlCCll  stat.c 
plib.obj  :  plib.asi 

lasi  plib.asi,, nul.nul; 

print. obj  :     print. c  SIPATHIbioslib.h  SIPATHIstd.h  SIPATHIvi.h  SIPATHIkeydefs.h  SIPATHIsii.h 

SlCCll  print. c 
define. obj  :     define. c  SIPATHIdefine.h 

SICC1!  dofine.c 
zooi.obj  :  zooi.e  SIPATHIkeydefs.h  SIPATHIsii.h  SIPATHIvi.h  SIPATHIstd.h 

SlCCll  zooi.e 
change. obj  :     change. c  SIPATHIdefine.h  SIPATHIvi.h  SIPATHIsii.h 

SlCCll  change. c 
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Sim.h  —  Header  file  for  the  Simulator  * 

* 

This  file  contains  the  declaration  of  all  * 

global  variables  and  structures  used  by  the         * 

*  Simulator.  » 

* 

* 

Author  :  M.  Arunachalam  * 

(tifndef  SIH_H 
((define  SIM_H 

((define  MIN_PER_HR  60L 

((define  HRS_PER_DAY  ((unsigned  longlhrs  jer_day) 

((define  DAYS_PER_WEEK  ((unsigned  long)  days  jer_week) 

((define  MIN_PER_DAY  (HRS_PER_DAY  *  MIN_PER  HR) 

#define  HRS_PER_WEEK  (HRS_PER_DAY  *  DAYS_PER_VEEK) 

((define  HIN_PER_WEEK  (HRS_PER_¥EEK  *  MIN_PER_HR) 

((define  MIN_INV  min_inv 

((define  PURCHASE_LOT_SIZE  purchase_lot_size 

((define  TRANSFER_BATCH  transfer_batch 

((define  MAT_HANDLING_COST  mat_handling_cost 

((define  OTHER_OP_EXPENSE  other_op_expense 

((define  DELETED       '\x2A' 
((define  CLOCK_MODIFIER  '\x24' 
((define  UNLOAD_MODIFIER     '\x24' 
((define  REG_MODIFIER   '\x20' 
((define  USER_SPECIFIED  'D' 
((define  USER_DELETED   '\xF' 
((define  UNJJTILIZED    224 
((define  CLOCKJTICK     "cloc)t_tick" 
((define  PURCHASE  "purchase" 
((define  SETUP         "setup" 
((define  LOAD         "load" 
((define  UNLOAD        "unload" 
((define  MOVE         "move" 

((define  SETTINGJJP     'S' 
((define  PROCESSING     '\xAF' 
((define  IDLE  '  +  • 

/*  Formal  definition  of  the  functions  */ 

char  *my_malloc(int);       /*  Error  sensitive  mallocO  */ 

/*  Global  variables  */ 

int  pageno; 

unsigned  long  int  event_time,  time_now; 

int  week,  day,  hr,  min,  week_now,  day_now,  hr  now,  min  now: 

char  modifier;  ~~       - 

char  event_type[20] ; 

int  event_varl,  event_var2,  event_var3,  event_var4- 

int  freezed;  /*  TRUE  when  freezed  and  FALSE  when  nQt  t/ 
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int  deleted; 

int  user_specif ied; 

int  processing; 

int  auto_purchase; 

int  auto_setup; 
int  auto_move; 


/*  TRUE  when  event  deleted  FALSE  otherwise  */ 
/*  TRUE  if  user  specified  setup  */ 
/*  TRUE  if  machine  is  processing  at  the  time  of 
user  specified  setup  */ 

/*  TRUE  if  user  wants  automatic  replenishment 
of  raw  materials  */ 

/*  TRUE  if  user  wants  automatic  setups  */ 

/*  TRUE  if  user  wants  automatic  material 
transfer  */ 


long  cash,  expense; 

int  n_depts,  n_ptypes,  max_ops; 

int  pace; 

int  route [10] [10]; 
int  stime[2] [10] [10]; 
int  mtime[2] [10] [10] ; 

int  raw_for_ptype[10] ; 

int  routing_row,  routing_col,  raw_mat_row,  raw_mat_col,  prod_row,  prod_col; 

int  n_raw_mat,  n_products,  priority_row,  priority_col; 

int  zoom_row,  zoom_col; 

int  zoom_dept; 

int  hrs_per_day; 
int  days_per_week; 

int  min_inv; 
int  purchase_lot_size; 
int  transfer_batch; 
int  mat_handling_cost; 
int  other_op_expense; 

/*  Global  structures  */ 

((define  MACHINE  struct  machine 

((define  PART_INFO  struct  part_information 

((define  DEPT  struct  department 

((define  RAW  struct  raw_material 

((define  PRODUCT   struct  products 

((define  STATS  struct  statistics 

/*  Private  variables  to  files  which  include  opt.h  */ 
DEPT  *dept_h; 
RAW  *raw_mat; 
PRODUCT  'product; 
STATS  *stats; 

/*  Structure  for  machine  */ 
MACHINE  I 
int  row; 
int  col; 
int  mach_no; 
int  repeat; 
int  setup_for; 
char  setup_for_in_char; 
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int  instate; 

int  user_stopped; 

unsigned  long  int  state_change_time; 

unsigned  long  int  time_idler 

unsigned  long  int  time_setup; 

unsigned  long  int  time_busy; 

MACHINE  *next; 

I; 

/*  Structure  for  part  information  */ 
PART_INF0 I 
int  row; 
int  col; 
int  repeat; 
int  ptype; 
char  ptype_in_char; 
int  pre; 
int  post; 
int  dept_no; 
PART_INFO  *next; 

I; 

/*  Structure  for  department  */ 
DEPTI 

int  dept_no; 
int  nmachines; 
int  nmach_in_use; 
int  row; 
int  col; 
MACHINE  *mach; 
PART_INFO  *part_info; 
DEPT  *next; 
I; 

/*  Structure  for  raw  materials  */ 
RAVI 

int  raw_mat_no; 
int  cost; 
int  row; 
int  col; 
RAW  *next; 
I; 

/*  Structure  for  products  */ 
PRODUCT  I 
int  prod_no; 
int  price; 
int  gnty_produced; 
int  row; 
int  col; 
PRODUCT  *next; 
If 

/*  Structure  for  statistics  */ 
STATS  I 
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int  fin_row; 
int  fin_col; 
long  start_cash; 
long  cash_now; 
long  sales_revenue; 
int  raw_mat_exp; 
int  mat_hand_exp; 
int  other_op_exp; 
int  net_cash_f low; 
I; 
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#endif     /*  SIM_H  */ 
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* 

* 

Process. h  —  Header  file  for  process. c  * 

* 

This  file  contains  the  declaration  of  the  * 

event  procedures  and  initialization  of  the  * 

command  table  for  the  event  processor.  « 

* 

*  Author  :  M.  Arunachalam  * 

Sifndef  PROCESS_H 
((define  PROCESSJ) 

/*    Functions  in  the  cal_fncs  command  table  —  */ 

int  advance_clocl:(int,  int,  int,  int); 

int  purchase_rawmat (int,  int,  int,  int); 

int  setup_machine(int,  int,  int,  int); 

int  load_machine(int,  int,  int,  int); 

int  unload_machine(int,  int,  int,  int); 

int  movejart  (int,  int,  int,  int); 

typedef  struct  I 

char  name [20];  /*  Eve„t  types  -  can  be  19  characters  long  */ 

int  (*fnc)(mt,  int,  int,  int);  /*  Event  procedures  */ 
ICALJWCTIONS; 

CAWUHCTIONS  cal_fncs[]  =  (     »clock_tick",      advance_clock, 

"purchase",       purchase_rawmat, 
"setup",  setup_machine, 
"load",  load_machine , 

"unload",  unloadjnachine, 
"move",  move_part, 

""I; 

lendif  /«  PR0CESS_H  */ 
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Calendar. h  --  Header  file  for  Calendar. c  * 

* 
This  file  contains  the  declaration  of  the  * 

*  calendar  structure.  * 

* 

*  Author  :  M.  Arunachalam  * 

difndef  CALENDARJi 
((define  CALENDARJI 

/*  Constants  */ 

((define  N_LINES        21       /*  Maximum  number  of  lines  in  calendar  page  */ 

((define  CALENDAR  struct  calendar 

CALENDAR  I 

char  modifier; 

long  unsigned  time;/*  Time  in  minutes  */ 

int  weeks; 

int  days; 

int  hrs; 

int  mins; 

char  *fnc_ptr;  /*  Function  pointer  */ 

int  a; 
int  b; 
int  c; 
int  d; 

CALENDAR  *prev; 
CALENDAR  *next; 
I; 

*endif  /*  CALENDAR  H  */ 
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* 

* 

Vi.h  —  Header  file  for  the  video  routines  * 

* 

This  file  contains  declarations  and  definitions  * 

used  by  direct  video  routines  in  the  video  * 

*           library  "Video. h"  * 

* 

* 

Authors  :  Kent  Funk  and  M.  Arunachalam  » 

«»*«m*»**«««*«t«««««*««,J,»„i,1»1»„„,„,,M„„J,1I„ir)|1|)l](il||i(J)r](]( 

♦ifndef  VI_H 
((define  VI_H 

/*  Screen  attributes  */ 
((define  NORM   7 
((define  REV   112 
((define  INT   8 
((define  BLNK   128 


((define 
((define 
tdefine 
((define 
fdef ine 
♦define 


F_BLACK 

F_BLUE 

F_GREEN 

F_CYAN 

F_RED 

F_MAGENTA 


0 


((define  F_BROWN 
(tdefine  F_WHITE 

((define  B_BLACK 
Kdefine  B_BLUE 
((define  B_GREEN 
((define  B_CYAN 
tdefine  B_RED 
((define  B_MAGENTA 
(tdefine  B_BROVN 
♦define  BJfHITE 


16 


32 


30 
96 
122 


/*  screen  attributes  of 
((define  CLOCK_COLOR 
(tdefine  S_TEXT_COLOR 
♦define  TITLE_COLOR 
(tdefine  ERROR_COLOR 
♦define  MSG_C0LOR 
♦define  CASH_COLOR 
♦define  EXPENSE_COLOR 
♦define  MENU_KEY_COLOR 
♦define  MENU_FNC_COLOR 
♦define  MACHINE_COLOR 
♦define  STIME_COLOR 
♦define  MTIME_COLOR 
♦define  PRE_COLOR 
♦define  POST_COLOR 
♦define  R0UTE_COLOR 
♦define  PROD_NO_COLOR 
♦define  PRODUCT_COLOR 


entities  in  the  simulator  */ 

B_BLACK+F_BROWN+INT 

B_BLACK+F_GREEN+INT 

B_BLACK+F_WHITE+INT 

B_BLACK+F_WHITE+INT+BLNK 

B_BLACK+F_WHITE+INT 

B_BLUE+F_BROWN+INT 

B_RED+F_WHITE+INT 

B_BLUE+F_CYAN+INT 

B_BLUE+F_WHITE+Ii*T 

B_BLUE+F_WHITE+INT 

B_GREEN+F_BLACK 

B_GREEN+F_BLACK 

B_CYAH+F_BLUE 

B_CYAN+F_BLUE 

B_BLACK+F_CYAN+INT 

BJBLUE+F_CYAN+INT 

REV  /*  B_WHITE+F_BLUE  */ 
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♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 


PRIORITY_COLOR 

CAL_MOD_COLOR 

CAL_TIME_C0LOR 

CAL_FNC_COLOR 

CAL_REST_COLOR 

STAT_FIN_COLOR 

STAT_SLS_COLOR 

STAT_ACT_COLOR 


B_BLACK+F_CYAN+INT 

B_GREEN+F_BROWN+INT 

B_BLUE+F_WHITE+INT 

B_RED+F_WHITE+INT 

B_BLUE+F_CYAN 

B_RED+F_WHITE+INT 

B_MAGENTA+F_WHITE+INT 

B_BLUE+F  WHITE+INT 


/*  Scrolling  directions  */ 
♦define  SCRLJJP  0 

♦define  SCRL_DOWN  1 
♦define  SCRL_LEFT  2 
♦define  SCRL_RIGHT      3 

/*  clear  screen  macro  */ 
♦define  vicls(vpage)  (viblanltlvpage,  0,  0,  24,  79)) 

/*  Formal  screen  function  definitions  */ 
void  viblanMint,  int,  int,  int,  int) ; 
void  viputs(int,  int,  int,  int,  char  *); 
void  viputc(int,  int,  int,  int,  char); 
void  viputcclint,  int,  int,  char); 
void  vierasecclint,  int,  int); 
void  viscr(int,  int,  int,  int,  int,  int); 
void  viboxfint,  int,  int,  int,  int,  char,  int); 

void  viprintf (int,  int,  int,  int,  char  *,  ); 
void  vierrmsg(int,  char  *,  ) ; 

♦endif  /*  VI_H  */ 


/*  variable  args  */ 
/*  variable  args  */ 
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/«»*»»«**«*«.«*«j«,»»4,»»„»„„„„,1(„„11„)[,(1,)1„)|:(1[](Jt)[(i(||]l)1)[t 

* 

* 

Std.h  —  Header  file  for  standard  declarations  * 

*  * 
This  file  contains  the  definition  of  * 
standard  constants  used  by  the  OPT  Simulator.  * 

*  * 

*  Source  :  Proficient  C  * 

/*  data  type  aliases  */ 

((define  META  short 

((define  UCHAR  unsigned  char 

((define  UINT  unsigned  int 

((define  ULONG  unsigned  long 

idefine  USHORTunsigned  short 

/*  Boolean  data  type  */ 
typedef  enum  I 

FALSE,  TRUE 
I  BOOLEAN; 

/*  function  return  values  and  program  exit  codes  */ 

♦define  OK    0 

((define  BAD   1 

((define  SUCCESS  0 

♦define  FAILURE  1 

♦define  FALSE  0 

♦define  TRUE   1 

/*  infinite  loop  */ 
♦define  FOREVER  while  (1) 

/*  masks  */ 

♦define  HIBYTE         OxFFOO 

♦define  LOBYTEOxOOFF 

♦define  ASCII  0x7F 

♦define  HIBIT  0x80 

/*  lengths  */ 

♦define  MAXNAME  8 

♦define  HAXEXT3 

♦define  MAXLINE        256 

♦define  MAXPATH        64 

/*  special  number  */ 

♦define  BIGGEST        65535 
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* 

* 

Keydefs.h  —  Header  file  for  keyboard  interrupts.     * 

* 
This  file  contains  the  definition  of  keyboard  * 
interrupts  and  values  for  special  keys  on  IBM        * 

*  PC  and  clones.  * 
* 

*  Source  :  Proficient  C  t 
♦define  XF    0x100             /*  extended  key  flag  */ 


♦define  K_F1 

59 

1  XF 

♦define  K_F2 

60 

!  XF 

♦define  K_F3 

61 

!  XF 

♦define  K_F4 

62 

XF 

♦define  K_F5 

63 

XF 

♦define  K_F6 

64 

XF 

♦define  K_F7 

65 

XF 

♦define  K_F8 

66 

XF 

♦define  K  F9 

67 

XF 

♦define  K_F10 

68 

XF 

♦define  K  SF1 

84 

XF 

♦define  K_SF2 

85 

XF 

♦define  K_SF3 

86 

XF 

♦define  K  SF4 

87 

XF 

♦define  K_SF5 

88 

XF 

♦define  K_SF6 

89 

XF 

♦define  K_SF7 

90 

XF 

♦define  K_SF8 

91 

XF 

♦define  K_SF9 

92 

XF 

♦define  K_SF10  93 

XF 

♦define  K_CF1 

94  ! 

XF 

♦define  K  CF2 

95  ! 

XF 

♦define  K  CF3 

96  ! 

XF 

♦define  K_CF4 

97  ! 

XF 

♦define  K_CF5 

98  : 

XF 

♦define  K_CF6 

99  ! 

XF 

♦define  K_CF7 

100 

:  xf 

♦define  K_CF8 

101 

1  XF 

♦define  K_CF9 

102 

!  XF 

♦define  K_CF10103 

!  XF 

♦define  K_AF1 

104 

!  XF 

♦define  K_AF2 

105 

!  XF 

♦define  K_AF3 

106 

1  XF 

♦define  K_AF4 

107 

!  XF 

♦define  K_AF5 

108 

:  xf 

♦define  K_AF6 

109 

!  XF 

♦define  K  AF7 

110 

:  xf 

♦define  K_AF8 

111 

XF 

♦define  K_AF9 

112 

XF 

♦define  K_AF10113 

XF 

/*  shifted  function  keys  */ 


/*  control  function  keys  */ 


/*  alternate  function  keys  */ 
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Sdef ine 

K_HOME71 

1  XF 

((define 

K_END  79 

:  xf 

(fdef  ine 

K_PGUP73 

XF 

((define 

K_PGDN81 

!  XF 

((define 

K_LEFT75 

XF 

((define 

K  RIGHT 

((define 

K_UP   72 

XF 

♦def ine 

K_DOWN80 

XF 

cursor  keypad  (NumLock  off;  not  shifted)  «/ 


77  !  XF 


((define  K_CHOME 
((define  K  CEND117 


XF 


((define  K_CPGUP 

132  !  XF 

((define  K_CPGDN 

118  !  XF 

♦define  K_CLEFT 

115  !  XF 

((define  K_CRGHT 

116  1  XF 

(fdef  ine  K_CTRLA  1 

((define  K_CTRLB 

2 

♦define  K_CTRLC 

3 

((define  K_CTRLD 

4 

♦define  K_CTRLE 

5 

♦define  K_CTRLF 

6 

♦define  K_CTRLG 

7 

♦define  K~CTRLH 

3 

♦define  K_CTRLI 

9 

♦define  K_CTRLJ 

10 

♦define  K_CTRLK 

11 

♦define  K_CTRLL 

12 

♦define  K_CTRLM 

13 

♦define  K_CTRLN 

14 

♦define  K_CTRLO 

15 

♦define  K_CTRLP 

16 

♦define  K_CTRLQ 

17 

♦define  K_CTRLR 

18 

♦define  K_CTRLS 

19 

♦define  K_CTRLT 

20 

♦define  K_CTRLU 

21 

♦define  K_CTRLV 

22 

♦define  K_CTRLW 

23 

♦define  K_CTRLX 

24 

♦define  K_CTRLY 

25 

♦define  K_CTRLZ 

26 

♦define  K_ALTA30  ! 

XF 

♦define  K_ALTB48  | 

XF 

♦define  K_ALTC46  | 

XF 

♦define  K_ALTD32  ! 

XF 

♦define  K_ALTE18  i 

XF 

♦define  K_ALTF33  ! 

XF 

♦define  K_ALTG34  | 

XF 

♦define  K_ALTH35  ! 

XF 

♦define  K  ALTI23  I 

XF 

♦define  K  ALTJ36  ! 

XF 

♦define  K  ALTK37  I 

XF 

119  !  XF  /*  control  cursor  keypad  */ 


/*  standard  control  keys  */ 


/*  alternate  keys  */ 
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#def ine 

K  ALTL38 

XF 

((define 

K  ALTM50 

XF 

Kdefine 

K_ALTN49 

XF 

((define 

K  ALTO  2  4 

XF 

Sdef ine 

K_ALTP25 

XF 

((define 

K_AI.TQ16 

XF 

((define 

K_ALTR19 

XF 

Idef ine 

K_ALTS31 

XF 

((define 

K_ALTT20 

XF 

((define 

K  ALTU22 

XF 

((define 

K_ALTV47 

XF 

((define 

K_ALTW17 

XF 

((define 

K  ALTX45 

XF 

((define 

K_ALTY21 

XF 

#def ine 

K_ALTZ44 

XF 

((define 

K_ALT1 

120 

XF 

/*  additional  alternate  key 

combinations  */ 

((define 

K  ALT2 

120 

XF 

((define 

K_ALT3 

120 

XF 

((define 

K  ALT4 

120 

XF 

((define 

K_ALT5 

120 

XF 

Kdef ine 

K_ALT6 

120 

XF 

((define 

K_ALT7 

120 

XF 

((define 

K_ALT8 

120 

XF 

((define 

K_ALT9 

120 

XF 

((define 

K_ALT0 

120 

XF 

Jdefine 

K_ALTDASH 

120 

XF 

((define 

K_ALTEQU 

120 

XF 

((define  K_ESC 
((define  K_SPACE 
((define  K_INS 
((define  K_DEL 
((define  K_TAB 
((define  K_BACKTAB 

#define  K_CTRL_PRTSC 

((define  K_RETURN 
idefine  K_SRETURN 
((define  K  CRETURN 


32 


/*  miscellaneous  special  keys  */ 


27 

82  I  XF 

83  !  XF 
K_CTRLI 
K  CTRLO 


144  !  XF  /*  printer  echoing  toggle  */ 

13  /*  return  key  variations  */ 

13 

10 
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Bioslib.h  —  Header  file  for  BIOS  functions.         * 

This  file  contains  the  definition  for  BIOS  * 

functions  used  by  the  OPT  Simulator.  * 


*  Source  :  Proficient  C 

((define  PRINT_SCRN  0x05 

♦define  TOD_INIT  0x08 

((define  KEYBD_INIT  0x09 

((define  DISK_INIT  OxOE 

((define  VIDEO_IO  0x10 

((define  EQUIP_CK  0x11 

((define  MEM_SIZE  0x12 

((define  DISK_IO  0x13 

♦define  RS232_IO  0x14 

((define  CASS_I0  0x15 

((define  KEYBD_I0  0x16 

((define  PRINT_IO  0x17 

((define  TOD  OxlA 

♦define  VIDEO_INIT  OxlD 

♦define  GRAPHICS  OxlF 


/*  BIOS  interrupts  */ 


♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 
♦define 


SET_MODE 

CUR_TYPE 

CUR_POS 

GET_CUR 

LPEN_POS 

SET_PAGE 

SCROLLJJP 

SCROLLJJN 

READ_CHAR_ATTR 

WRITE_CHAR_ATTR 

WRITE_CHAR 

PALETTE 

WRITE_DOT 

READJWT 

WRITEJTTY 

GET_STATE 

ALT_FUNCTION 

WRITE_STR 


♦define  RESET_DISK 
♦define  DISK_STATUS 
♦define  READ_SECTOR 
♦define  WRITE_SECTOR 
♦define  VERIFY_SECTOR 
♦define  FORMAT  TRACK 


0 
1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

18 

19 

0 

1 
2 
3 

4 
5 


/*  video  routine  numbers  */ 

/*  (placed  in  register  AH  before  a  */ 

/*  BIOS  interrupt  10H)  */ 


/*  EGA  only  */ 
/*  AT  only  */ 

/*  disk  routine  numbers  */ 


♦define  KBD_READ  0 
♦define  KBD_READY  1 
♦define  KBD_STATUS      2 


/*  keyboard  routine  numbers  */ 
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* 

Doslib.h  —  Header  file  for  DOS  Interrupts.         * 

* 
This  file  contains  the  definition  of  DOS  * 

interrupts  used  by  the  OPT  Simulator.  * 

« 

* 

*           Source  :  Proficient  C                            • 

/*  DOS  interrupts  */ 

((define  PGMJTERMINATE  0x20 

((define  BD0S_REQ  0x21 

((define  TERMINATE_ADDR  0x22 

•define  CB_EXIT_ADDR  0x23 

•define  CRITICALJERR  0x24 

•define  ABS_DISK_READ  0x25 

•define  ABS_DISK_WRITE  0x26 

•define  PGM_TERM_RES  0x27 

/*  DOS  functions  —  usually  placed  in  ah  register  for  C86  calls  */ 

•define  PGM  0x0 

•define  KEYIN_ECHO_CB  0x1 

•define  DSPY_CHAR  0x2 

•define  AUX_IN  0x3 

•define  AUX_OUT  0x4 

•define  PRNT_OUT  0x5 

•define  KEYIN_ECHO  0x6 

•define  KEYIN  0x7 

•define  KEYIN_CB  0x8 

•define  DSPY_STR  0x9 

•define  KEYIN_BUF  OxA 

•define  CH_READY  OxB 

•define  GET_CH  OxC 

•define  DISK_RESET  OxD 

•define  SELECT_DISK  OxE 

•define  OPEN_FILE  OxF 

•define  CLOSE_FILE  0x10 

•define  FIRSTJTM  0x11 

•define  NEXT_FM  0x12 

•define  DELETE_FILE  0x13 

•define  READ_SEQ  0x14 

•define  WRITE_SEQ  0x15 

•define  CREATE_FILE  0x16 

•define  RENAME_FILE  0x17 

/*  0x18  reserved  */ 

•define  CURRENT_DISK  0x19 

•define  SET_DTA  OxlA 

•define  DFLT_FAT_INFO  OxlB 

•define  FAT_INFO  OxlC 

/*  OxlD  -  0x20  reserved  */ 

•define  READ_RANDOM  0x21 

♦define  WRITE_RANDOM  0x22 

•define  FILE_SIZE  0x23 

•define  SET_INT_VEC  0x25 

•define  NEW  PGM_SEG  0x26 
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((define  RAND_BLK_READ 

0x27 

♦define  RAND_BLK_WRITE 

0x28 

♦define  PARSE_FILENAME 

0x29 

♦define  GET_DATE 

0x2A 

♦define  SET_DATE 

0x2B 

♦define  GET_TIME 

0x2C 

♦define  SET_TIME 

0x2D 

♦define  T0GGLE_VERIFY 

0x2E 

♦define  GET_DTA 

♦define  DOS_VERSION 

0x30 

♦define  PGM_TERM_KEEP 

0x31 

/*  0x32  reserved 

*/ 

♦define  CB_CHECK 

0x33 

/*  0x34   reserved  */ 

♦define  GET_INTR 

0x35 

♦define  GET_FREE_SPACE 

0x36 

/*  0x37  reserved 

*/ 

♦define  INTL  INFO 

0x38 

♦define  MKDIR 

0x39 

♦define  RMDIR 

0x3A 

♦define  CHDIR 

0x3B 

♦define  CREAT 

0x3C 

♦define  OPEN_FD 

♦define  CLOSE  FD 

0x3E 

♦define  WRITE  FD 

0x40 

♦define  UNLINK 

0x41 

♦define  LSEEK 

0x42 

♦define  CHMOD 

0x43 

♦define  IOCTL 

0x44 

♦define  DUP 

0x45 

♦define  FORCE_DUP 

0x46 

♦define  GET_CUR  DIR 

0x47 

♦define  ALLOC 

0x48 

♦define  FREE 

0x49 

♦define  SET_BLOCK 

0x4A 

♦define  EXEC 

0x4B 

♦define  EXIT 

0x4C 

♦define  WAIT 

0x4D 

♦define  FIND_FIRST 

0x4E 

♦define  FIND_NEXT 

0x4F 

/*  0x50  -  53  reserved  */ 

♦define  VERIFY_STATE 

0x54 

/*  0x55  reserved  < 

'/ 

♦define  RENAME 

0x56 

♦define  FILE_MTIME 

0x57 

0x2F 


0x3D 


Project  Source  Files 
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(include  (stdio.h) 

(include  (conic. h> 

(include  "userlstd.h" 

(include  "user\7i.h" 

(include  "usenkeydefs.h" 

(include  "Mtr\iii.lia 

tain  I) 
I 
char  filmiellSI; 

int  k,  delay_var,  delay; 

unsigned  long  int  siijaxtiie  «  1(101)1: 

char  en; 

int  break joint,  break.tiae: 

int  prev_zooi: 

int  end_of_»eek,  reset_tiie: 

printf ("Enter  filenaae(.SIK) :  "I; 

scanfl'ts",  iilenaie): 
iflread.datalfilenaiei  !«  0)1 

printf ("fatal  error  in  file  readVn" 
e nit (01: 
I 

delay _var  =  2; 
tiie_no»  =  0L; 

»eek_no»  =  day_now  =  hr_no»  =  iin_no»  =  0: 
pace  -  5; 
breakjiae  =  0; 
end_of_»eek  =  0; 
resetjiie  =  0: 
zooi_dept  =  1; 
zooi_ro«  =  (: 
zooi_col  =  39; 
processing  =  FALSE; 
initialized; 
init.statll; 
setjcreenl); 
fon_calendarl); 
set_cal_iindoill; 
display_calendar(l; 
zooilzooi.deptl; 
set_zooi_scrll; 
query!); 
print_iodes(l; 
breakpoint  =  MIIJEljiY; 
i£(autojurchasel( 

check  inventory  I); 
I 
if(auto_setup)( 

initial  setupl); 
I 

get_neit_event(): 
updatejacell; 
•hileltiie  now  <=  liiiaitiiell 

ifl!freezed)[" 
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»bileievent_tite  ==  tiiejoill 
process_eventll; 
get  next  event! I: 
I 
if  Ipageno  ==  II I 

update  zooi  actlzooi_deptl; 
I 
if  Ipageno  ==  311 

update  act  report  I ) ; 
I 

cneck_free  sacbsl); 
I 

forldelay=0;  delay  <  delayjar;  delayt*ll 
if  (kbbitl)ll 

k  =  getkeyll; 
s»itch(kil 

case  'e': 
case  T: 
case  K_ALTE: 

iflpageno  ==  2)1 

edit  calendar) ) ; 
I 

break: 
case  '!': 
case  '?': 
case  K_ALTF: 

if ( ! freeied) 

freeze! )  ; 
break; 
case  'r': 
case  'R': 
case  K_ALTR: 

yiblanklO,  23,  0,  23,  791; 
if  If reezed) 

unfreeze!); 
i£lreset_tiie)l 

rent  Jin  =  0; 
reset  finance!); 
I 

if[break_tiie  ==  111 
bmk_tiie  =  0; 
tiblanklO,  23,  0,  23,  791 
viblankll,  23,  0,  23,  791 
viblankl2,  23,  0,  23,  79) 
viblank!3,  23,  0,  23,  79) 
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break; 
caie  'g': 
case  'Q': 
case  'JUTJ: 

ifllfreezed)  stopjiil); 

viblanklpageno,  21,   0,  23,  791; 

viprintf Ipageno,  23,  30,  B  JIACI+F  RED+INT,  "»s",  "Are  you  sure'  <y/n>")- 

ch  =  getcbll; 

ifllch  ==  'y'|  I!  (cb  ==  'y'))l 
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lindjpl); 

siitlO)) 
I  else  I 

viblanklpageno,  23,  0,  23,  79); 

if (Ifreezed)  start  sill); 
I 

break; 
case  'b': 
case  '!'; 
case  t_ALTB: 

iflpageno  !=  0)1 

set  page (0 1; 
I 
if ( ifreezed)  [ 

stop.siill; 

break  joint  =  cjet_break_point  (breakpoint) : 
if  I Ifreezed) ) 

start  sill); 
I 
iflpageno  !=  Oil 

set  page(pageno); 
I 

break; 
case  K.ALT!!: 

iflpageno  ==  0)1 

if (Ifreezed) I 

stop  sill  I ; 
I 

get_iodesl); 
if  I ifreezed)  ( 

start  sill); 
I 
I 

break; 
case  V: 
case  'S': 
case  I  JUS: 

iflpageno  ==  0)1 

if (Ifreezed) I 

stop  sill); 
I 

user .schedule!  I; 
if  I ifreezed) ( 

start  sill); 
I 
I 

break; 
case  'c'; 
case  'C: 
case  IJUK: 

iflpageno  ==  111 

if  I Ifreezed)  I 

stop.siil); 


SIB,|:  Monday,  January  9,  1989 


Pace  103 


change_vars(); 
if ( ! f reezed)  I 

start_sii(); 

| 

break: 
case  'p'j 
case  'P': 
case  K_ALTP: 

if ( !  freezedl 

freeze!); 
print  jcrlpagenol; 
unfreeze  1 1 ; 
break; 
case  JP1: 

pageno  =  0; 
setjagelpagenol; 
break: 
case  IJ2: 

if  (pageno  ==111 

pretjooi  =  zooijept; 

zooidept  =  getJeptjo(prev_zooil: 

if(zooi_dept  !=  pre!_zooi)l 

zooilzooi  dent): 
I 


lelsel 


updatejoonjiocktl; 
update_zooi_act I zooi_dept) ; 
pageno  =  1; 
setjagelpagenol; 


I 

break: 
case  K_F3: 

pageno  =  2: 

setjagelpagenol; 

break; 
case  K_F4: 

updatejtatjlockll; 

npdate_stat_finance(l; 

update_statjrod_infoll; 

»pdate_actjeport(l; 

pageno  =  3; 

setjagelpagenol; 

break; 


case  '♦' 


case  '-': 


ifldelayjrar  >=  102)1 

delayjrar  -«  100; 

pacett; 

updatejacell; 

break; 

ifldelayjar  <=  30211 

delay_var  t=  100; 
pace--: 
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update  nee!!; 

I 

break: 
case  KJGW: 

if  (pageno  ==  21 1 

set_cal  pjupl): 

I 

break; 
case  l_Km 

if (pageno  «  2)1 

set_cal  pgdnO ; 

I 

break: 
case  K_UP : 

if (pageno  ==  211 

set  cal_l  up(); 

I 

break; 
case  KJOII: 

if (pageno  ==  211 

set  cal  1  donll; 

I 

break: 
default: 

break: 

I 

I 
I 
if(end_of_»eekll 

reset_ti»e  =  1; 

end_o£_»eek  =  0: 

caic  caii  flotl); 

iflbreak_tiieli 

ifllfreeredll 

freeze  I ) ; 

viblank (pageno,  23,  0,  23,  791; 

viprintf (pageno,  23,  24,  KSG.COLOR,  "is",  "Break  point:  Type  T  to  continue"); 

I 

ifdlevent.tiiel  *  (unsigned  long  intlbreak joint)  ==  0)1 

break  time  =  1; 
I 
if(Kevent.tiie)  *  KUjnjffill  ==  oil 

end  of_«eek  =  1; 
I 
ifKfreezedll 

process_event(); 

iflautojurchasell 

checkjnventoryl); 

getjiext.eventll; 


SII,,C  Monday,  January  9,  1989 


Page  101 


pageno  =  0: 
setjajelpajeool 
»ind_up( I ; 
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(include  (stdio.h) 
♦include  "user\sii.nI 

DEPI  «teip  d,  <teip  iast  d; 

MACHINE  'teip.i; 

PMT.IJTO  'teip.pi,  "tenp.lastji; 

P.1I  'teip_rai; 

PRODUCT  Ueipjrod; 

/'  -  functions  -  '/ 
int  read_datalchar«); 

/'  Function  to  read  input  data  froi  the  file  specified  by  the  user  '/ 
int  read_datalfilenaiel 
char  >filenaie; 
I 

FILE  'fp: 

int  result,  ext  =  0: 

int  i,j,k: 

char  pchar; 

int  dept_no,  machines,  niach.injse,  row,  col; 

int  repeat; 

int  ra»_iat_no,  cost,  prod.no,  price,  ptype,  p.index; 

int  teip_cash,  teipexpense; 

forli=0;  £ilenaie|i]  !=  '\0';  i++) [ 

iflfilenaieli]  ==  '.')  ext  =  1; 
I 
if  llextll 

strcatlfilenaie,  \sii-); 
I 
if t (fp  ■  fopenlfilenaie,  VI)  ==  HULL) ) 

printfl'ts  :  bad  file  naie\n",  filename) : 

exitIO): 

fscanflfp,  'Ms  M\  Iteip.cashl; 

cash  =  (long)teip_cash; 

fscanflfp,  "\'i  W,   itenp.expense); 

expense  =  lionglteip.expense: 

fscanflfp,  ■**,  »d  »'s  »d",  in  depts,  in  ptypesi; 

fscanflfp,  ">'s  td",  (tax  ops); 

fscanflfp,  "»'s"); 

for (i=Or  i  <  njtypes;  it*l| 

for  ( j=0 ;  j  (  tujfiH;  jt+ll 

fscanflfp,  •»•,  iroute[i][jj); 

I 
I 

fscanflfp,  "t's  *d  »«s  td",  Srouting_ro«,  Srouting  col); 
dept.h  =  IDEPT'liy.ialloclsizeoflDEPTI); 
teip_d  =  dept.h; 
for(i=0;  i  <  njepts;  i++)  [ 

fscanflfp,  "*<s  Id",  Sdept.no); 

fscanflfp,  "»>s  »d  »'s  *d",  Smachines.  Sniach  in  usel; 

fscanflfp,  "*«s  Id  *'s  *d",  Sro»,  tcoll; 

teip_d-)dept_no  =  dept.no; 


Page  106 


HNl.C  Monday,  January  9,  1919 


teap_d-)nBachtnes  =  nnachines: 

teip_d->naach_in_use  =  niachjnjise; 

teap_d->ro»  =  ro»: 

teip_d-)col  =  col: 

te«p_d->»acii  =  (MACHINE«)«iy_malloc (sizeof (KACHIME! ) r 

teip_«  =  teip_d->iach: 

teip_i->iachjio  =  1; 

teip_i-)ro»  =  ro»; 

teap_»->col  =  col: 

teap_i->repeat  =  0: 

teip_i->setup_for  =  OHJTILIZED; 

iap.part.type  I  teip_i->setup_for ,  Spchar  I ; 

teip_a->setup_£or_in_char  =  pchar; 

teip_i-)istate  =  0: 

teip.i-)user_stopped  =  0: 

teip.i-)state_chanje.tiie  =  01: 

teip_«->ti«e_idle  =  0L: 

teip_i->ti«e_seti]p  =  0L; 

teip_«->tiie_busy  =  01: 

Ear (j=l;  j  <  machines:  jtt)| 

teip_»->next  =  IKlCBINE'lay.iallocisizeoflKACHINJI): 
teip.i  =  teip.i-)next: 
teip.a->iacn_no  =  jtl; 
roi  t=  2; 

teip.a-)ro»  =  row; 
teip_i->col  =  col; 
teip_a-)repeat  =  0: 
teip_a-)setnp_for  =  njffUUD; 
aap_part_type(teip_i->setup_for,  ipchar) : 
teip_i->setup_for_h_char  =  pchar: 
teip_»-)istate  =  0; 
teip_i->nset_stopped  =  0; 
teip_i->state_change_tiae  =  0L; 
teip_i-)tiie_idle  =  0L; 
teip_i->tiie_setup  «  01; 
teip  a-)tiie  busy  =  01; 
I 

teip.i-)neit  =  BULL; 
teip_i  =  NULL; 

teip_d-)part.info  =  IPART.IIFO'liy.ialloclsiieoflPAH  IIPOII; 
teipji  =  teip_d->part_i«fo; 
roi  =  teip_pi->row  =  teip_d->rowtl; 
col  =  teip_pi->col  =  teip_d-)coI-9; 
teipji-)dept_no  =  dept_no; 
teip_pi->pre  =  0: 
teip_pi->post  =  0: 
for [ j=0:  j  <  njtypes;  j+t)  [ 
repeat  =  0; 
forlk=0;  k  <  lax.ops;  ktt|| 

iflrouteljHk]  ==  dept.no)  [ 
teip_pi->ptype  =  jtl; 
teipji-)repeat  =  repeat; 
•ap_part_typelteip_pi->ptype,  ipchar) ; 
teip_pi->ptype_in_char  =  pchar; 
teip_last_pi  =  teipji; 
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teipji->neit  =  IPART_I»FO'l»y_ialloclsizeoflPARTJNFO) 

teipji  =  teip_pi->next: 

routt; 

teip_pi-)rca  =  ro»; 

te«p_pi-)col  =  col; 

teip_pi->deptjio  =  deptjo: 

teip_pi-)pre  =  0; 

teipji-ipost  =  0: 

repeat**; 
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frwlteipjil; 

teip_lastji->next  =  MJLL; 
teip.lastji  =  SULt; 
teip_last_d  =  tespji: 

teipjHnext  =  IDEPTMny.ialloclsizeofiDEPTII; 
teip  d  =  teip  d->next: 
I 

freelteip_dl; 
te«p_last_d->next  =  MULL; 
teip_last_d  =  NOIL; 
fscanflfp,  '»»ri; 

fscanflfp,  "*'s  *d  t's  «',  lraw_iat  ro».  Sra»  lat  coll 
fscanflfp,  "%'s  *d",  Sn_ra»  tatl; 
fscanflfp,  "»'s"l; 

ran.iat  =  IUI«lll.MlloclsiteofUH||j 
teip_ra»  =  ra»_iat: 

fscanflfp,  "td  »d\  ira»_iat_no,  Scostl; 
teip_ra»->rai_iat_no  =  rawjiatjo: 
teip_raw-)cost  =  cost; 
roi  =  teip_ra»->ro»  =  ra»_iat_ro»+l; 
col  =  teip_ra»-)col  =  ra«_»at_col: 
forli=l;  i  (  n_ra«_iat;  i++} [ 

teip_ra»->next  =  IRAK'liyjialloclsizeof  1111)  I; 

teip_ra»  =  teip_rai->next; 

fscanflfp,  'M  \i\  Sra»_uat_no,  Scostl; 

teip_rai->ra»_iat_no  =  raw_«at_no; 

teip_ra»->cost  =  cost; 

teip_ra»-)roi  =  ttron; 

teip  ra»->col  =  col; 

ifl(i+ll»3  ==  OH 

rot  =  rai_iat_roi: 
col  =  rif  lit  col+10; 


teip_rai-)neit  =  HULL; 
teip_ra»  =  NULL; 

fscanflfp,  'I's'l; 

fscanflfp,  -\'s  td  *>s  *d",  Sprod  row,  Sprod  coll; 

fscanflfp,  "»'s  dd",  (n  products)^ 

fscanflfp,  "t's'l; 

product  =  (PKODUCT*)By_»alloc  Isizeot  (PRODUCT! ) ; 

teipjrod  «  product; 
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f scant (fp,  '%i  u\  Sprodjo,  ipricel: 
tenpjrod->prodjo  =  prod_no; 
teipprod-Jprice  =  price: 
te«pjrod->qntyjroduced  =  0: 
ro»  =  teipjrod->ro»  =  prod_ro»+l; 
col  =  teipjrod->col  =  prod.col: 
forli=l:  i  <  njroducts:  i+*)| 

teipjrod->next  >  (PRODOCT'liyjalloclsizeof (PRODUCT) ) 

teipjrod  =  teipjrod->next; 

fscanflfp,  -td  M",  tprod.no,  Spricei: 

teipjrod->prod  no  =  prod  no; 

teip_prod-)price  =  price: 

teip_prod->qnCy_produced  =  0: 

teipjrod->ro»  =  t+ro»; 

teip  prod-)col  =  col; 

if ( (i+l)*3  ==  Oil 

row  =  prod_ro«; 
col  =  prod  col+IO: 

I 
I 

teipjrod->next  =  HULL; 
teipjrod  =  NULL; 

fscanflfp,  "*'s"l; 
forli=0;  i  <  2;  i++|| 

fscanflfp,  "*'s"l; 
forlj=0;  j  <  n_depts;  jH)| 

forli=0;  k  (  njtypes;  k++)  f 

fscanflfp,  "*d",  istiie[i][j)[k)); 


fscanflfp,  "*»s") : 
for (i=0;  i  <  2:  ilt)| 

fscanflfp,  "*'s"l: 
for(j=0;  j  <  njepts;  jH)| 

forlk=0;  k  (  njtypes;  k*t|| 

fscanflfp,  '*d\  iiti«e[i][j][k]); 

I 


fscanflfp,  "*'s  *'s  »'s,l; 
for (i=Or  i  <  njtypes;  it+ll 

fscanflfp,  'W,  Sptypel; 

fscanflfp,  "td\  4rai_forjtype[ptype-l)l 

fcloselfpl; 
returnlO); 
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(include  (stdio.h) 
(include  "user\sij.h" 
(include  "userWi.h" 

/'  Functions  defined  in  setscr.c  —  >/ 

void  set_screenlvoidl; 

void  dran.deptslvoid); 

void  dran.routinglvoid): 

void  dra«_ra»_iatslvoidl; 

void  draijroductslvoidl; 

void  dran.ienulint); 

void  print_iodeslvoid); 

/'  Function  to  paint  the  initial  screen  •/ 
void  set  screenll 


int  i,  ron,  col: 

viclslOI: 

viprintflO,  0,  0 

S.TEXT.COLOR 

Ms" 

"KEEK 

viprintflO,  1,  1 

CLOClJOM!, 

"*s\ 

"00"); 

viprintflO,  1,  7 

CMCl'cOHB, 

"*s\ 

Tlj 

viprintflO,  3,  2 

S.TEXT  COLOR, 

"»s" 

"TIKE:" 

viprintflO,  1,  2 

CLOM.COLOl, 

'*!*, 

"00:00") 

viprintflO,  6,  0 

S.TEXT.COLOR, 

"»s\ 

"CASH") 

viprintflO,  7,  0 

CASH_COLOR.  ' 

*s",  " 

viprintflO,  9,  0 

S_TEXT_COLOR, 

■»J", 

"EXPEHS 

viprintflO, 10,  0 

EXPEJSE.COLOR 

■*s' 

" 

viprintflO, 12,  0, 

S.TEXT.COLOR, 

"*s", 

"Pace:* 

viprintflO, 12,  S, 

CLOCKCOLOR, 

"*s\ 

"1"); 

DAY"! 


\xB3'l; 


forlro»=0;  ro»<22;  ro»H)| 

viprintflO,  roi,  9,  HUE  COLOR,  "He*, 

I 

viprintflO,  5,  9,  TITLE  COLOR,  "*c",  '\x!4'); 

viprintfl0.il,  9,  TITLE.COLOR,  "<c\  '\zU'f, 

viprintflO, 1],  9,  TITLE.COLOR,  "tc\  '\xB4'l; 

viprintflO, 21,  9,  TITLE.COLOR,  "He",  '\it9'); 

forlcol=0;  col(9:  coi+tll 

viprintflO,  5,  col,  TITLE  COLOR,  "»c",  '\xCC) 
viprintfl0.il,  col,  TITLE.COLOR,  "»c\  'IxCCI 
viprintflO, 13,  col,  TITLE  COLOR,  "*c\  '\xC('| 
viprintflO, 21,  col,  TITLE.COLOR,  "*c\  '\xM'l 

drai.ienulll; 

dra»_ienul2); 

dran.ienull); 

dran.neouU); 

dran.deptsl); 

dran.routingl); 

drai.ran.iatsl); 

draijroductsll; 

update.financed; 

position.cursorlO, 


-  23,  0); 
position.cursorll,  23,  0): 
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position _cursor(2,  23,  01; 
position_cursor!3,  23,  01; 


/'  Function  to  dra«  the  lenus  '/ 
void  dra»_ienul«enu_nol 
int  ienu_no; 
I 
int  i: 


iflienu.no  ==111 

for (i=0;  i  <  JO: 
viprintf 
I 

viprintf (0,24,  0 
viprintf(0,24,  2, 
viprintf(0,24,  8, 
viprintf (0,24 ,  10, 
viprintf (0,24,20, 
viprintf [0,24,22, 
viprintf (0,24,28, 
viprintf(0,24,29, 
viprintf (0,24,36, 
viprintf (0,24,37, 
viprintf (0,24,48, 
viprintf 10,24,49, 
viprintf 10,24,58, 
viprintf (0,24, 59, 
viprintf (0,24,65, 
viprintf (0. 24,66, 
viprintf (0,24,71, 
viprintf (0,24,76, 


(0,24,  i,  HEM  KEY  COLOR, 


**c", 


KBBU.KBY  COLOR, 

umjKjam, 

HEKOJEY  COLOR. 
KEHU.FNC  COLOR, 
HEMJ.KEY  COLOR, 
HENO.FNC.C0LOR, 
HEKUJEY.COLOR, 
kbku.fnc  COLOR, 
MEMU  KEY  COLOR, 
HEIUJKC  COLOR, 
MEW.KEY.COLOR, 
MEKU  ESC  COLOR, 
KEHll.KBY  COLOR, 
MEID.FKC  COLOR, 
NBJU.KBY  .COLOR, 
MEMtJ_FNC  COLOR, 
HBJU.KEY  COLOR, 
KENO.FNC  COLOR, 


"*s",  72'); 

"*s",  "Jooi'l; 

"»s",  73*1: 

"Is",  "Calendar"); 

"*s",  74"]; 

"*s",  "Stat"); 

"*s",  7*1: 

reeze"]; 


•I; 


"reakpoint" 

'cheduie") : 

"rinfl; 
'*«•,  T); 

■*s",  'uifl; 

mU",   "<»/-)"!; 
"*s",  "Pace"); 


ifltenn.no  ==  211 

forli=0;  i  (  80 
viprintf 
I 

viprintf (1,24,  0 
viprintf (1,24,  2 
viprintf (1,24,12 
viprintf (1,24,14 
viprintf (1,24,21 
viprintf (1,24,23 
viprintf (1,24,33, 
viprintf (1,24,35. 
viprintf (1,24,41, 
viprintf (1.24,42, 
viprintf (1,24,49, 
viprintf (1,24,50, 
viprintf (1,24,57, 
viprintf (1,24,58, 
viprintf (1,24.64, 
viprintf (1,24,65, 
viprintf (1,24,70, 
viprintf (1,24,75, 


it*]  I 
(1,24,  i,  (HO  in  COME,  "*c" 


HSHO.KBY  COLOR, 
KEIU.FKC  COLOR, 
HEKD.KEY  COLOR, 
HESU.FNC  COLOR, 
HEKU.KBY  COLOR, 
HENO.FHC  COLOR, 
NEJUJEY.COLOR, 
NBJU.FSC  COLOR, 

warajiT.coiiOi, 

SEES.PKC.COLOR, 
HBSUJBY  COLOR, 
HBKD.FNC  COLOR, 
HEIIUEY  COLOR, 
KEKU.FIIC.COLOR, 
HEHU.REY  COLOR, 
HEJ1I.FKC  COLOR, 
HEJOJEY  COLOR, 
HEMl  FHC  COLOR, 


"»s", 
"»s", 
"»»", 
"»s\ 
■*«', 
"*s", 
"*s", 
"*s", 
"*s", 
"»s", 
"»s", 

■*J\ 

"*s", 
"*s", 
"ts", 

"*s", 
"*s", 
"*s\ 


"Fl'l; 

"Overvie»"l; 

72"): 

"DeptH; 

73*); 

"Calendar"]; 

74"]; 

"Stat"); 

7*1; 

"reeze'l; 

"C"); 

"hange'l; 

"P"): 

"rinfl; 

T); 

"nit"); 

"<+/->"); 

"Pace"]; 
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I 

ifdenii.no  ==311 

£or(i=0:  i  (  80:  i+*|| 
ripriat£IS,24, 


i,  HBHU  m  COLOR.  *tc", 


viprintf 
Tiprintt 

viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 
viprintf 


2,24,  0 

2.24,  9 
2,24,23 
2,24,25, 
2.21,35, 
2,24,37, 
(2,24,43, 
!2,24,45, 
12,24,51, 
2,24,52, 
2,24,57, 
2,24,58, 
2,24,65, 
2,24,65. 
2.24,71, 
2,24,76, 


l_BL0E*F  BROIN+IHT, 

unrajn  color,  "ts 
mn.uT.cnoi, 

KMB.FIC.COMI, 

KBHO.KBY.COLOR. 
MEHll.PHC  .COLOR, 
KEHU.KEY.COLOR, 
NEHO.FJC  COLOR, 
HEJU.KBY  COLOR. 
on  F1C  COLOR, 
SBB.IBJ  COLOR, 
HEHO.FHC  .COLOR, 
NEHU  KEY  COLOR,  "ts" 
HEHU.FHC.COLOR,  "ts* 
HBHU  KBY  COLOR,  "is" 


"ts\  "ScanKeys'l; 
Me",  "PaUp  PuLV 

■Fl'l: 

"Overvien"); 

■M'l; 

""ooi"); 

T4"l; 

"Stat"); 

Tl! 

"dit") : 

Tl; 

"reeze"); 

Tl: 

"uit'l; 

■«/->*l; 


\-18',  'UH'I; 


HFjro_FIC.COM I,  "ts",  "Pace'); 


if (iean.no  ==  4)1 

forli=8;  i  (  72; 
viprintf I 
I 

viprintf (3,24,  9, 
viprintf (3,24,11, 
viprintf (3,24,21, 
viprintf (3.24,23, 
viprintf (3,24,29, 
viprintf {3,24,31. 
viprintf (3.24,41. 
viprintf (3,24,42, 
viprintf (3,24,49, 
viprintf (3,24,50. 
viprintf (3,24,56, 
viprintf (3,24,57, 
viprintf (3,24,62, 
viprintf (3,24,67, 


i»t)l 

3,24,  i,  HEHO.KEY  COLOR, 


"tc" 


HENU  KEY 
HEHO.FHC 
KliO  KEY 

un.nc 

HEHIIJEY 
HENO  FHC 
HEHU  KEY 

hbho.fnc' 
hehujey" 

HBHU  FHC 
HEHO  KEY 
HEHO.FHC 
HEHU  KEY 
HID  FHC 


.COLOR,  'ts 
.COLOR,  "ts 
COLOR,  ■*) 
.COLOR,  "ts 
.COLOR,  "»s 
.COLOR,  "ts 
.COLOR,  "ts1 
.COLOR,  "ts",  "reeze 
.COLOR,  "ts",  "P"|; 
.COLOR,  "ts 
.COLOR,  "ts 
.COLOR,  "ts 
.COLOR,  "ts 
.COLOR,  "ts 


"Fl'l; 

"Overview"); 

•F2"l; 

"Zooi"); 

"F3"l: 

"Calendar"); 

■F'li 


"rinfl; 
'0"); 
"uit'l ; 
* «♦/->'!; 

"Pace"); 


iflienu.no  ==  51  ( 

viprintf (0,24,28.  HEHU  KEY  COLOR,  "ts",  "R"l; 

viprintf  (0,24,29,  mil  FHC  "COLOR,  "ts",  "esuie"); 

viprintf (1,24,41,  KEJO .KEY  COLOR,  "ts",  "R"l; 

viprintf (1,24,42.  HEW  FHC~COLOR,  "ts",  "esuie"); 

viprintf (2.24,57,  HEHU  REY  COLOR,  "ts",  Tl: 

viprintf (2,24,58,  HEHU  FHC  COLOR,  "ts",  "esuie")- 

viprintf  13, 24, 41,  HENU  REY  COLOR,  "ts",  Tl; 

viprintf 13, 24, 42,  HEHO.FHC.COLOR ,  "ts",  "esuie"); 

iflienu.no  ==6)1 

viprintf (0,24.28,  HEHU JBY  COLOR,  "ts",  'F'li 

viprintf 10, 24, 29,  HERO  FHC  COLOR,  "ts",  "reeze") ' 

viprintf (1,24,41,  HEHll  KEY*C0L0R,  "ts",  "F"); 
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viprintf 11.24,42,  HRMJKC  COLOR,  "t>",  "reeze"): 

vipriutf (2,24, 57 ,  HEIBJEY.COLOR,  "*«■,  "F"); 

viprintf [2,24,58,  HEKOJNC  COLOR,  "is",  "reeze">; 

viprintf 0.24.41.  JEJUJEI.COLOl,  "ts*,  "?"); 

viprintf (3, 24. 42,  KEHI1_FIIC~C0L0R.  "ts1,  "reere") : 
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iflmije  --  711 

£orli=22;  i  <  10;  i++) ( 

viprintf (2,  24,  i,  HRIU  KEY  COLOR 
| 

■  "tc\  '  '): 

viprintf (2,  24,  36,  KEIU  KEY  COLOR,  "*s", 

VI; 

viprintf (2.  24,  37,  MENU_FKC~COIOR,  "ts", 

"eleteEvent") 

viprintf (2,  24,  49,  HEH11_KEY~C0L0R,  "4s", 

VI; 

viprintf  12,  24,  SO,  HEKDJHC _COLOR,  '*s\ 

"ddEvent"); 

viprintf (2,  24,  59,  HEM  _KEY~COLOR ,  "ts", 

"Esc"); 

viprintf (2,  24,  62,  SENU.FHc'cOLOR,  "is", 

"Done") ; 

iflieno.no  ==  81 1 

£orli=22;  i  <  80:  it+)| 

viprintf (2,  24,  i,  MENU  EEY  COLOR,  "tc",  '  ']; 
I  "  " 

viprintf 12,  24,  22,  B  BLUEtF  REDtlHT,  "ts\  "Select  Event  by  ScanEeys*); 
viprintf[2,  24,  48,  HEHD_KEY_COLOR,  "ts",  "Del"); 
viprintf (2,  24,  51,  HEHO.FHC  COLOR,  "ts',  "Delete"); 
viprintf (2.  24,  59,  HEHU"  KEY  COLOR,  "ts",  "Ins"); 
viprintf [2,  24,  62,  HEHU_PHC_COLOR,  "ts",  "Undelete"); 
viprintf (2,  24,  72,  HEJIIJEY  COLOR,  "ts",  "Esc"); 
viprintf (2,  24,  75,  HEHUJHC  COLOR,  "ts\  "Done"); 


ifdenujo  ==  911 

for ( i=22;  i  <  80;  itt)[ 

viprintf (2,  24,  i,  HEHU  RBY  COLOR,  "tc" 

.  '  '1; 

viprintf 12,24,23,  HERD  EEY  COLOR,  "ts", 

■Fl"l; 

viprintf (2,24.25,  HEIU.FHC'COLOR,  "ts". 

"Overview") ; 

viprintf  12,24.35,  HBHU.KBY'cOLOR,  "ts", 

"F2"l; 

viprintf (2.24,37,  HEHU.FHC  COLOR,  "ts", 

"Zooa") 

viprintf (2,24,43,  HEHUJEY~COLOR,  "ts", 

•F4"l; 

viprintf (2,24,45,  HEHU.FHC ~COLOR,  "ts", 

"Stat"); 

viprintf (2,24,51,  HEHU _KBY~COLOR ,  "ts", 

Tl; 

viprintf (2,24,52,  HEHU.FHC  COLOR,  "ts", 

"difl; 

it ( ! freeied)  1 

viprintf (2,24,57,  HEHU  RBY  COLOR 

.  "ts", 

"F-); 

viprintf (2,24,58,  KSHU  FHC  COLOR 

,  "ts", 

"reeze") 

lelsel 

viprintf (2,24.57,  NEMU  REY  COLOR 

.  "ts", 

VI; 

viprintf (2,24,58,  HEHU  FHC~COLOR 

.  "ts", 

"esnie") 

viprintf (2,24,65,  HEHU  REY  COLOR,  "ts", 

'PI; 

viprintf (2,24,66,  HEHU.FHC "COLOR,  "ts", 

■ait"); 

viprintf (2,24.71,  KBKU  RBy"c0L0R,  "ts", 

'<+/->"l 

viprintf  12,24,76,  HEHU.FHC  COLOR,  "ts",  ' 

'Pace'); 

if(ienu_no  ==  1011 

iflpajeno  ==  0) 
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forli=0:  i  (  SO;  ift|| 

viprintf (0,24,  i,  MENU  KEY  COLOR, 

I  "  ' 

viprintflO,  24,  22,  ffiluJSY  COLOR,  "ts", 

viprintf (0.  2!,  22,  MEHU_FKC  COLOR,  "*s", 

viprintf (0,  24,  32,  HUD  KEY  COLOR,  ■*»", 

viprintf (0,  24,  33,  SEMI.FKC .COLOR,  "»s\ 

viprintf {0,  24,  39,  BEMJ.KEY  COLOR.  "ts\ 

viprintf 10,  24,  40,  HEKU_FHC  COLOR,  'is-, 

viprintf  10,  24,  45,  NESU  RBY  COLOR, 

viprintf (0,  24,  46,  HEMI.FKC.COLOR, 

viprintf (0,  24,  51,  KEKUJEy'coLOR, 

viprintflO,  24,  54,  KEH1I  FHC  COLOR, 


■*c\  '  '): 

Tl; 

"urchase'l: 

,  "etap")  ; 

,  VI; 

,  "oad"); 
"*s",  VI: 
"Is",  "ove'l; 
"*s",  "Esc"); 
'ts\  "Done") : 


if Ipageno  ==  211 

for ( i=22 ;  i  (  80;  i*+)| 
viprintf (2,24,  i, 


SEMI  KEY  COLOR,  "»c" 


I 


viprintf (2,  24, 
viprintf (2,  24, 
viprintf (2,  24, 
viprintf (2,  24, 
viprintf (2,  24, 
viprintf (2,  24, 
viprintf (2,  24, 
viprintf (2,  24, 
viprintf 12,  24, 
viprintf (2,  24, 


33,  SESU.REY  COLOR, 

34,  SESll.PJc'cOLOR, 

43,  BENU.KEY  COLOR, 

44,  SESU.FSC.COLOR, 

50,  HEHU  KEY  COLOR, 

51,  BEMJ.FHC.COLOR, 

56,  HERD  KEY_COLOR,  "*s", 

57,  SEMIJKC.COLOR,  "ts", 
62,  KEITOJBY  COLOR,  "*s\ 
65,  HERU.PHC  COLOR,  "ts", 


-,s. 
"»s" 
"Vs" 
■tl" 
"to" 
■ts' 


"urchase" 

V); 

"etup"); 

Tl! 

"oad"]; 

VI; 

"ove'l; 

"Esc"); 

"Cone")  ; 


ifdenu.no  ==  11)  [ 

forli=0;  i  <  10;  i*t|[ 
viprintflO, 24, 
I 

viprintflO, 24,  0 
viprintflO, 24,  2 
viprintflO, 24,  8 
viprintflO, 24, 10 


i,  HEMIJBY.COLOR,  "to" 


SEMI.KBY.COLOR,  "ts 

SEMI.FHC  COLOR,  "ts 

HEim.KEY.COLOR.  "ts 

SEMJ.FHC.COLOR,  "ts 


viprintflO, 24, 20,  SEII)  KEY  COLOR, 
viprintflO, 24, 22,  JEUJIc'cOLOi, 
ifllfreeiedll 

viprintflO, 24, 28,  HERO  KEY  COLOR, 
viprintflO, 24, 29,  HERD  PRc'cOLOR, 


lelsei 


•n't; 

"Zooi'l; 

"F3"l; 

"Calendar" 

"M'l; 

"Stat"); 

■tl' 
■tl" 


"F"l; 

"reere"); 


viprintflO, 24, 28, 
viprintflO, 24, 29, 


mnjH.COLOJ,  "tl",  "R'l; 

HEMJ.FNC.COLOR,  "ts",  "esuie"); 


viprintf 10, 24, 36,  HE1IU  KEY  COLOR,  "ts\  "B"l; 

viprintflO, 24, 37,  BEJC.FJC  COLOR,  "ts\  "reakpoint") 

viprintf  10, 24, (8,  SEMJ.KEY  COLOR,  "ts",  "S'l; 

viprintflO, 24, (9,  MEM  FIC  COLOR,  "ts",  "chedule"); 

viprintf 10, 24, 58,  SEMI  KEY  COLOR,  "ts",  "P"); 

viprintf (0,24, 59,  SBMJ  PHc'cOLOR,  "ts",  "rinfl; 

viprintflO, 24, 65,  HEP  KEY  COLOR,  "ts\  "0/1; 

viprintflO, 24, 66,  SEMI  PNC  "COLOR,  "ts",  "uifl; 
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viprintf [0,24.71 .  HESB.KEy  COLOR,  "is",  "<»/->"); 
Tiprintf (0,24,76,  KHB.FKC.COLOR,  "is",  "Pace") : 


/'  Function  to  draw  the  departients  '/ 

void  draw  deptsl) 

I 

int  i,  j,  k,  row,  col; 

DEPT  'teip  d: 

ifACEME  'tain  l; 

PART.INFO  'teipji; 

for  I teipji  =  deptj;  teip.d  !=  NULL;  teipj  =  teipjHnestl  I 

viprintf  10,  teipjHrow-I,  teip.d:)col-5,  TITLE  COLOR,  "»s  *d\  'Departienf,  teip  d-)dept  noi- 
forlteip_i  =  teipjHiach:  teip.i  !•  NULL;  teip_i  =  teipji->nextll 

roi  =  teip_i-)ro»: 

col  =  teip_i->coi: 

viprintf (0,  row,  coi,  B_RED+F_¥HITE+IFT.  "M",  teip  i->iach  nol; 

viprintf (0,  rowtl,  col-2,  B.BLBWJIOIWIT,  •*c',"'\xB3'); 

viprintf(l),  rowtl,  col+2,  BJLOE+F  BROWN+IHT,  "*c",  '\xB3'l; 

viprintf [0,  rowtl,  col-1,  S_«LDB+F_1HITE+IBT,  "*s\  "      "I; 

forlteipji  =  teip_d-)part.info;  teipji  !  =  ROLL;  teipji  =  teip  pi->next][ 
roi  =  teipjHrow; 
col  =  teipji->col; 
i£lteip_pi-)repeat  )  0|[ 

viprintf (0,  row,  col-2,  BJLACRtFJIKItHI,  "M\  teip_pi->repeat); 

viprintf  10,  row,  col+19,  B.BUCItF.SREHtin,  ■«■,  teip.pi->repeat); 

viprintf 10,  row,  col-1,  B.BLACRtF  BROffltlKT,  "fc1,  teip  pi->ptype  in  char) • 
viprintflO,  row,  col+20,  B.BLACI+F  BROSH+INT,  "Ic*,  teip  pi->ptype  in  char) ■ 
iflteip_pi-)pre  )  Oil  " 

viprintf  10,  row,  col,  PRE  COLOR,  "t3d\  teip  pi-)prel; 
I  else  I 

viprintf 10,  row,  col,  PRE.COLOR,  'ts\  "      "|; 

i£lteipji->post  >  0)1 

viprintf  10,  row,  coU16,  POST  COLOR,  "t3d\  teip  pi-)post|- 
lelsel 

viprintf 10,  row,  col+16,  POST_COLOR,  "*S",  "      "); 

viprintf 10,  row,  colt),  i.GREEB+F  BROIItUI,  "*c\  '\xB3'l; 

viprintf (0,  row,  coi+lS.  B_  OREBHtF  BROIHHNT,  "*c",  '\xB3'l: 

viprintf (0,  row,  col+i,  STIHE  COLOR,  "»s\  ■      "|; 

viprintf (0,  row,  coM2,  HTIHE  COLOR,  *»s",  ■      '); 
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/'  Function  to  print  the  routing  latrix 

void  draw  routing!) 

I 

int  i,  j,  row,  col; 

char  pchar: 
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row  =  routing_row; 
col  =  rooting_col: 

viprintflO,  roi,  col-1,  TITLE.COLOR,  "*s",  "RODIIK'I: 
viprintflO,  Mm,  col-5.  ROUT E_C0L0R ,  "»s",  "Type   route"); 
for (i=0;  i  (  njtypes:  i++ 1 1 
col  =  routing_coI; 
iapjart_typeTiH,  Ipchar); 

viprintf7o,  Mroi,  col-1 ,  ROUTE  COLOR,  "*c  *c\  pchar,  ':'); 
fori j=0 :  j  <  lax  ops;  jM|| 
iflrouteiillj]  )  0)1 

viprintflO,  row,  coin,  ROUTE  COLOR,  "*d",  roate(i)  [j] I  • 
if lroute[i] fj+lj  >  0)1 

viprintflO,  row,  colM,  ROUTE_COLOR,  "*c",  '\jrtF' 


/•  Function  to  draw  tie  raw  laterials  and  print  the  costs  '/ 

void  draw  raw_iatsl) 

I 

int  row,  col; 

RAK  Heip_raw; 

row  =  raw_iat_row; 
col  =  raw_iat_col; 

viprintflO,  row,  col,  TITLEJOLOR,  "ts\  "Raw  Materials: "I ; 
forlteip.raw  =  raw_iat:  teip_raw  !•  NULL;  teip  raw  =  teip  mHMXtll 
viprintflO,  teip_raw->row,  teip_raw->col,  CJl_FHC_COLOR,\ 

"*s>ld*c",  "R»",  te»p_raw-)raw  lat  no,  ';'); 
viprintflO,  teip_ra»->ro»,  teip_raw-)col+4,  rev,\  " 
"  *c*2d  ",  '$',  teip_raw->cost); 


/'  Function  to  draw  the  products  '/ 

void  draw  products  1 1 

I 

int  row,  col; 

PRODUCT  'teipjrod; 

char  pchar; 

row  =  prod_row; 
col  =  prod_col; 

viprintflO,  row,  col,  TITLEJOLOR,  "»s",  "Products:"]; 
forlteipjrod  --  product;  teipjrod  !=  HULL;  teipjrod'=  teip  prod->next)l 
iapjart_type(teip_prod-)prod_no,  Ipcharl; 
viprintflO,  teip_prod-)ro«,  teip  prod-)col,\ 
PROD.KO.COLOR,  "*c:\  pchar); 
viprintflO,  teipjrod-)ro»,  teip  prod-)col*2,\ 
PRODUCT  COLOR,  "*s\  "     ■]• 
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/"  Function  to  print  lodes  '/ 

void  print  lodesl) 

I 

♦define  NODE_TXT_COL0R    B.BLACItp  BIOn+IIT 
(define  MODE.COLOR  B_BLUE+F_CYAH-f INT 

viprintflO,  14,  2,  TITLE_COLOR,  "Is1,  "MODES") ; 

viprintflO,  15,  0,  MODE.HT  COLOR,  ">s",  "Purchase:"!; 
viprintflO,  1),  0,  NODE  TX!  COLOR,  "*s\  "Setup:") ; 
viprintflO,  19,  0,  NODE_TXT_COLOR,  "»s\  "Move:"); 
iflautojurchase)  i 

viprintflO,  16,  3,  NODE  COLOR,  "*s",  "  Auto  "I; 
I  else  I 

viprintflO,  16,  3,  NODE_COMR,  "»s",  "Manual'): 


iflauto_setup)l 

viprintflO,  15,  3,  BODE  COLOR,  "*s 
I  else  I 

viprintflO,  18,  3,  NODE  COLOR,  'ts 
I 
if!auto_iove|{ 

viprintflO,  20,  3,  MODE  COLOR,  "*s 
I  else  I 

viprintflO,  20,  3,  NODR.COLOR,  "*s 


"  Auto  ") 
"Manual") 

"  Auto  ") 
"Manual"! 
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(include  (scdio.h) 
(include  (dos.h) 
(include  <5raph.l1> 
(include  (signal. n) 
(include  <stdlib.h> 
(include  (process. h> 
(include  "user\std.h" 
(include  "user\doslib.h" 
(include  "userUeydefs.h" 
(include  "user\bioslib.h" 
(include  'user\sii.h" 
(include  "user\vi.h" 

/'  —  Functions  defined  in  Utils.c  —  ■/ 

int  getkeylvoidl; 

unsigned  int  positionjursorlint,  int,  int) : 

void  setjageiintl; 

void  hide_cursor(voidl; 

int  iapjarc_typelint,  char'!; 

int  iap_charichar); 

void  beeplvoidl; 

void  done_inputlvoid); 

int  nindjipivoid); 

int  initialize! void); 

inc  handlerlvoidl; 

void  restore_cursor(toid); 

int  iproiptlint,  int.  int,  int,  int,  int,  int); 

void  userjurchaselvoidl; 

void  user_setuplvoid); 

void  user_loadlvoidl; 

void  user.iovelvoidl; 

int  guerylvoidl; 

int  get_iodes(voidl; 


static  int  high,  low; 

/'  Set  the  user  input  '/ 

int  getkeyll 

[ 

int  cb; 

/'  nonal  key  codes  "/ 

if  llch  =  MoilHTII,  0,  01  S  MBYTE)  !=  '\0'l 
return  I ch I; 

/'  convert  scan  codes  to  unique  internal  codes  '/ 
retnrnllbdosllEYIS,  0,  01  I  tOBTTEl  :  IFI; 


int  initialized 
I 

union  KISS  inregs,  outregs; 

int  Viode,  Vpage; 


OTILS.C  Monday,  January  9,  1989 


/*  obtain  current  video  node  '/ 
inregs.h.ah  =  GET_STATE: 
int86(VID£0_IO,  Sinregs,  Soutregsl: 
Viode  =  outregs.h.al: 
Vpage  =  outregs.h.bh: 

/'  obtain  current  bios  cursor  state  "/ 
inregs.b.ab  =  GET_C0R,- 
inregs.n.bh  =  Vpage; 
int!6(VIDE0_I0,  Sinregs,  Soutregsl: 
high  =  outregs.h.ch; 
Id*  =  outregs.h.cl: 

/'  check  to  lake  sure  EGA/CGA  adapter  is  available  '/ 
iflViode  ==  ))[ 

/'  The  adapter  is  Konochroie  '/ 

fputsl'OPT:  This  prograi  reguires  an  EGA/CGA  adapter. In",  stderr): 

exitlOl; 


/'  pipe  Ctlr-C  break  signals  to  handlerll  '/ 
iflsignallSIGIKT,  Sandler)  ==  lintIM  1)1-11 1 

fputsl'SIS:  couldn't  set  SIGHT. \n",  stderr); 

exitlOl; 
I 

/'  lake  sure  »e  are  in  lode  3,  else  change  '/ 
if [Viode  !=  3)1 

_setvideoiode(  TEXTC10I: 


/'  lake  sure  »e  are  in  page  0,  else  change  "/ 
if (Vpage  !=  0)1 

pageno  =  0; 

set  pagelpageno); 
I 

/'  hide  the  bios  cursor,  set  bits  4,5  of  CH  '/ 
inregs.h.ah  =  CORJVPE; 
inregs.h.ch  =  high  !  0x30; 
inregs.h.cl  =  low; 
int86(VIDEO_IO,  Sinregs,  ioutregs); 

viclslOI; 
viclsll); 
viclsU); 
viclsll); 


/'  Bide  the  cursor  by  setting  bits  (  and  5  of  CH  '/ 
void  hide  cursor!) 
I 
union  REGS  inregs,  outregs; 

inregs.h.ah  =  CUR_TYPE; 
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inregs. h.ch  =  high  !  0x30; 
inregs. h.cl  =  low; 
intJ6IVIDEO_IO,  Sinregs,  Soutregsi 


/'  Position  the  cursor  at  the  specified  page,  row,  col  '/ 
unsigned  int  position_cursorlVpage,  row,  col) 
int  Vpage,  row,  col; 
I 

union  REGS  inregs,  outregs; 

inregs.h.ah  =  CIIRJOS; 
inregs. h.hh  =  (unsigned  intl Vpage  i  0x0?; 
inregs. h.dh  =  (unsigned  intlrow  4  OxFF; 
inregs. h.dl  =  (unsigned  intlcol  S  OxPF; 
int86 (VIDEO_IO,  Sinregs,  Soutregs); 

returnloutregs.x.cflagl; 


/'  Set  visual  page  '/ 
void  setjagelvpage) 
int  vpage; 
[ 

union  REGS  inregs,  outregs; 

inregs.h.ah  =  SETJAGE; 
inregs. h.al  =  vpage; 

iat»6(VIDEO_IO,  Sinregs,  Soutregsi; 


/'  Nap  the  part  type  to  corresponding  character  '/ 

int  iap_part.type(ptype,  ptype_in_char) 

int  ptype; 

char  'ptype  in  char; 

I 

•ptype_in_char  -  ptypeHi; 


/'  Error  sensitive  lalloc  '/ 
char  'iy_ialloc(cnt) 
int  cnt; 
I 
char  "ptr; 

if  ( (ptr  =  lchar'lialloc(cnt)!  -  HULL) ( 

fpriatf Istderr,  "ibort,  out  of  ieiory!\n"l; 
exitlJ); 

I 

return  I ptr I; 


/'  Sound  a  beep  at  the  teninal  '/ 
void  beep  I ) 
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putcl '\z07' ,  stderrl; 

I 

int  wind  up ( ) 
I 

union  KEGS  inregs,  outregs; 

dispose_calendar(); 

viclsioj; 

vicls(l); 

vicls(2); 

vicls(3); 

iflpageno  !=  0)  setjagelO); 

.setvideoiodelJIEFAULTHODE); 

/'  restore  cursor  */ 
inregs. h. ah  =  1; 
inregs. h.cb  =  high; 
inregs. h.cl  =  lo»; 
int86!VIDEO  10,  Sinregs,  Soutregsl; 
I 

/'  Restore  the  BIOS  cursor  '/ 

void  restore  cursor!) 

I 

union  REGS  inregs,  outregs; 

inregs. h. ah  =  1; 
inregs. h.ch  =  high; 
inregs. h.cl  =  low; 
intSKVIDEO  10,  Sinregs,  Soutregsl; 
I 

/"  Procedure  to  be  invoked  i£  user  presses  Ctrl-C  «/ 
int  handler!) 
I 
char  ch; 

/'  Disallow  Ctrl-C  during  handler:  '/ 

viblanklpageno,  23,  0,  23,  79); 

position.cursorlpageno,  23,  0); 

signal  (SIGHT,  SIG.IGN); 

beep!); 

if (ifreezed)  stop.siill; 

viprintflpageno,  23,  25,  KSG  COLOR,  "is',  "Teninate  Siiulation?  fy/n) -)  - 

ch  =  getchll; 

ifllch  ==  'y'|  li  (ch  ==  'Y'lll 

wind  up|); 

exiUO); 
I 

/' 

now  call  "signal"  again  so  the  nest  interrupt 

signal  sends  control  to  handler (I,  not  to 


raus.c 


the  operatina  systei. 
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signal ISIGIHT,  handler): 
viblanklpageno,  23,  0,  23,  79); 
if ( ! f reezed)  start_si»(); 
position jursorlpageno,  23,  0); 


/'  Set  the  ne»  break  joint  froi  the  user  "/ 
int  get Jreakjointloid) 
int  old: 
I 

char  ch; 

int  nei; 

JiblanklO,  23,  0,  23,  791; 

riprintflO,  23,  0,  KSG.COLOR,  "lis",  "Sreak  joint:"); 

viprintflO,  23,  13,  BJtEDtFJfHITRtlHT,  "*6d\  old); 

viprintflO,  23,  25,  KSG.COLOR,  "New  Break  point:  (1  -  »dl",  HI  PEE  DAYI; 

fflushlstdin);  "  " 

nei  =  iproiptlO,  23,  53,  4,  old,  1,  nil  PER  day); 

if (new  ==  old)  ( 

viblanklpageno,  23,  0,  23,  791; 

viprintflpageno,  23,  30,  KSG.COLOR,  "»s",  "Break  point  not  changed" 

position jursorU,  23,  0); 


leisel 


hidejursorl); 
returnloldl; 

viblanklO,  23,  0,  23,  79); 
position  jursorlO,  23,  01; 
hidejursorl); 
retumlnetl; 


/"  Proipt  for  an  integer  value  of  length  'length'  '/ 
int  iproiptlVpage,  rot,  col,  length,  old,  lin,  eaxl 
int  Vpage,  rot,  col,  length,  old,  tin,  hi; 
[ 

ch«r  buf[li; 

int  i,  j; 

int  net; 

int  tore; 

if (length  <  II  returnloldl; 
restore jursor  I); 
get.input: 

position jursorlfpage,  rot,  col); 
forli=0;  i  (  length+1;  l++|| 

fprintflstderr,  *  "I; 
I 
for(i=0;  i  {  length+1;  i++)  [ 

fprintflstderr,  "\b"l; 
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I 

forIM,  iore=IKIJ!;  i  <  length+1  ii  lore:  II 
buf(i]  =  getchll; 
buf(itl)  =  '\0'; 
switchlbuf [i] } [ 

case  '\r': 
case  '\n': 

ifli  ==  01 


I  else! 


returnloldl; 

for (3=0;  buf[j]  «  '  '  ||  baf[j]  ==  '\t';  jH; 
for (new=0r  buflj]  >=  '0'  ii  bufljj  <=  '9';  j*+)| 

ne»  =  10  '  ne»  *  buf[j)  -  '0': 
I 
if  I (new  <=  laxl  ii  lien  >=  tin)) I 

return (nei); 
else! 

beepl); 

returnloldl; 


I 

break: 
case  '\b': 

bufli]  =  '\0': 
ifli  >  Oil 

buf(-il  --  '\0'; 

fputcHb',  stderrl; 

fputcl'.',  stderrl; 

fputc [ '_' ,  stderrl; 

fprintflstderr,  "\b\b" 
I 

break; 
default: 

buf[itl]  =  '\0': 
putclbufliH),  stderrl; 
ifli  )  length+1)  I 

•ore  =  FALSE; 


break; 


I 
I 

beepll; 

buf[0]  =  '\0'; 
goto  get.input; 


/'  Got  the  user  input  for  scheduling  purchase  event  </ 

void  user  purchase  1 1 

I 

char  ch,  laxjtype,  ptype; 

char  pchar: 

int  ok; 

int  lotjize,  part_no; 


iapjart_typelnjtypes,  ipchar); 
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lUjtjpe  •  toupper ipchar) : 

restore_cursor(); 

vinlankipageno,  23,  0,  23,  79); 

viprintflpageno,  23,  0,  HSG_COLOR,  "ts".  "Purchase  raw  laterial  for:  "I; 

positicn_cursorlpageno.  23,  271: 

ok  =  FALSE; 

ihiUllokll 

en  =  getchd: 
if (ch  <  '  ')[ 

donejnputll: 
return; 
I 
if (ch  <  'J'  l|  cl  >  'I'll 

ok  =  FALSE; 
else 

ok  =  TKUE; 

iflokll 

ptype  =  toupper Ichl: 
iflptype  (=  uxjtjpell 

fputclptype,  stderrl; 
I  else  I 

ok  =  FALSE; 
I 
I 
I 
get_lot_size: 

fot.size  =  PURCHASE_LOT_SIZE ; 

viprintflpageno,  23,  30,  HSG_COLOE,  "*!",  "lot  size;  "I; 

viprintflpageno,  23,  40,  BJED+FJHITE+M,  " ! %3d ) " ,  lot  sizel; 

viprintflpageno,  23,  55,  B_BL1CI+F_GRBEI+IHT.  '»•■,  -Hit~Return  for  default" 

lot_size  =  iproiptlpageno,  23,  47,  3,  lot  size,  1,  9991; 

ifllot.size  )  Oil 

partjo  =  iap_chariptypei; 
userjpecified  =  TRUE; 
schedulelPURCHASE,  tiiejo«tll,\ 

ra»Jor_ptype[partjo-i],  part  no,  lot  size,  01; 
userjpecified  =  FALSE; 
donejnputll; 
return; 
I  else  I 

goto  get_lot_size; 


I 


Get  the  user  input  for  scheduling  setup  event  '/ 


/ 

void  user  setup  I 

I 

DEFT  'teip  d; 

KACHIHE  'teip  1; 

PARI.INFO  'teipji; 

int  ok; 

int  deptjo,  lachjo,  repeat,  count; 

char  part_type; 

char  ch; 
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restore_cursor(t : 
get_iach: 

viblanklpageno,  23,  0,  23,  791; 

viprincf (pageno,  23,  0,  KSG_COLOR,  "ts",  "Change  setup  for  -  dept: ") ; 

viprintflpageno,  23,  30,  NSG_COLOR,  "ts\  "lach:"); 

position  cursorlpageno,  23.  25); 

ok  >  FALSE: 

•hiieiiokll 

en  =  gttetl): 
iflcn  <  '  'II 

donejnputll: 
return; 
I 
if (cb  <  '1'  II  ch  )  '9'll 

ok  =  FALSE; 
I  else  I 

ok  =  TRUE; 
I 
if (ok)  f 

dept  jo  =  ch  -  '0': 
ifijipt.no  >  n  deptsll 

ok  =  FALSE; 
I  else  I 

ok  ■  TRUE; 
fputclch,  stderrl; 

I 
I 

forlteipj  =  deptj:  teipj  1=  NULL  Si  teip  d->dept  no  !=  dept  no;  teip  d  =  teip  d-)nextl; 
if(te»p_d  ==  NULLI  print_errordl); 
position_cursorlpageno,  23,  361; 
ok  =  FALSE; 
»hilel!ok)[ 

ch  =  getchll; 
if (ch  <  '  'II 

donejnputll; 
return: 
I 
iflch  <  '1'  II  ch  )  T|| 

ok  =  FALSE: 
I  else  I 

ok  =  TRUE: 
I 
iflokll 

lachjo  =  ch  -  '0'; 

ifdachjo  )  teip  d->niachinesl  I 

ok  =  FALSE; 
I  else i 

ok  =  TRUE; 
fputclch,  stderrl; 

I 
I 
forlteip.i  =  teip_d-)iach;  teip.i  !=  HULL  ii  teip_i-)iach_no  !=  lachjio;  teip_i  =  teip_i-)nextl; 
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iflteip.i  ==  NULL)  print.ettorill: 
i£(teip_i->istate  ==  Oil 

processing  =  FALSE; 

iflteip_i->istate  -  111 

viprintflpageno,  23.  40,  B.BlACItf  JROW+IIT,  "ts\  'Waste  previous  setup?  (y/n>  "I; 

position_cursonpageno,  23,  61); 

ch  =  getchll; 

if  Ken  ==  Tl  II  (ch  ==  'y'DI 

viblanklpageno,  23,  40,  23,  791; 
goto  get  ptype; 
I  else  I 

goto  get  lacb; 
I 
I 
iflteip_i->istate  ==  211 

processing  =  TRUE; 
I 
getjtype: 

viprintflpageno,  23,  40,  HSC_C0LOR,  'is",  "for  part_type:'l; 
position.cursorlpageno,  23,  S5I; 
ok  =  FALSE; 
•hilellokll 

en  =  getchll; 
if (ch  <  '  'II 

donejnputl); 
return; 
I 

if (ch  <  'A'  II  ch  >  'z'|| 
ok  =  FALSE; 
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else 

I 
if (ok) 


ok  =  TRUE; 


partjype  =  toupperlchl; 
forlteipji  =  teip_d->part_info;\ 

teipji  1=  SOLI  ii  lstrciplteip_pi->ptype.in_char,  part  typel  !=  01  ;\ 
teip  pi  =  teip  pi-)nejt); 
iflteipji  ==  NULL)  I 

ok  ■  FALSE; 
I  else  I 

ok  =  TRUE; 

fputclpart_type,  stderr); 


I 


I 

viprintflpageno,  23,  63,  NSG.COLOR,  "ts\  'repeat: 

position  cursorlpageno,  23,  71); 

ok  =  FALSE; 

ibilellokll 

ch  =  getchll; 

iflch  <  '  'II 

done_inputl); 
return; 

I 
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if (eh  (  '0'  !i  ch  )  '9'|l 

ok  =  FALSE: 
I  else  I 


I 
if (ok) 


ok  =  TOB: 


repeat  =  ch  -  '0': 
tor (counc=0;  \ 

teipji  !=  HULL  ii  count  <  repeat; \ 

teip  pi  =  teip  pi->next,  count*-*); 
iflteipji  -  mill)  I 

viprintflpageno.  22,  40,  HSG.COIOR,  "%s\   'Illegal  part  type:") : 

viprintflpageno,  22,  59,  BJLACR*F_GREEIHIHT,  **ld",  repeat); 

viprintflpageno,  22,  60,  I  BLACE+P  BROINHNT,  "»c',  part  type); 

beepi); 

viblanklpageno,  23,  55,  23,  791: 

ok  =  RAISE; 

goto  getjtype; 
I 
if(lstrciplteipji->ptype_in_char,  part.type)  "  01  Si  lteip_pi-)repeat  ==  repeat) ) ( 

change! SETUP,  iach_no,  deptjo,  repeat,  iap_charlpart_typell; 

fputclch,  stderrl; 


i  else  I 


i 


viprintflpageno,  22,  40,  KSG.COLOR,  "*s",  "Illegal  part  type: ") 

viprintflpageno,  22,  59,  BJLACRtP.GREEHtlHT,  "»ld",  repeat); 

viprintflpageno,  22,  60,  B  BLACR+P  BROIKHNT,  "tc\  part  type); 

beepll; 

viblanklpageno,  23,  55,  23,  79]; 

ok  '  FALSE; 

goto  getjtype; 


I 
I 

donejnputll; 
if(teip_i-)setup_for  ==  DHJIILIZED] I 

iflteipj-)niach_in_use  (  teipji->niachiuesll 

teip  d-)mach  in  use**; 
I 
I 
I 

/'  Get  the  user  input  for  scheduling  load  event  '/ 

void  user  loadll 

I 

DEPT  'teip J; 

KACHIJE  'teip  i; 

PARTJHFO  'teipji; 

char  ch: 

int  ok; 

int  deptjo,  lachjo; 

int  partjype,  repeat; 

restore  jursor  I); 

viblanklpageno,  23,  0,  23,  79); 

viprintflpageno,  23.  0,  KSG.COLOR,  "*s",  'Load  -  Dept:    Kach:'l; 


™>S.C  Monday,  January  9,  1989 

get_load_iach: 
oil  =  FALSE; 

position  ciirsorlpageno,  23,  13): 
ihilellokll 

en  =  getchl); 
iflch  (  '  'II 

donejnpucl); 
return: 
I 

iflch  (  '1'  !!  ch  >  Til 
ok  =  FALSE: 
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else 

I 
if (ok) 


ok  =  TRUE; 


dept_no  =  ch  -  '0': 
ifldeptjo  )  njeptsl  I 

ok  =  FALSE: 
else  I 

ok  =  HUE: 

fputclch,  stderrl: 
I 


I 


I 

forlteipji  =  deptj;  teip.d  !=  (OIL  SS  teip  d-)dept  no  !«  dept  no:  teip  d  =  teip  d->neit) • 

iflteipj  ==  HULL)  print_errordl); 

position  cursorlpageno,  23,  241; 

ok  =  FALSE; 

ihilellokll 

en  =  getchl); 
iflch  <  '  ')! 

done_inputl); 
return: 
I 
iflch  <  T  ||  ch  )  Til 

ok  =  FALSE; 
I  else  I 

ok  =  TRUE: 
I 
iflokll 

iach_no  =  ch  -  '0'; 

ifdachjio  )  teip_d->machinesll 

ok  =  FALSE; 
I  else  I 

ok  =  TRUE; 
fputclch,  stderrl; 
I 
I 
I 

forlteip.i  <  teip.d->iach;  teip.i  !«  NULL  Si  teip..-)iach  no  '.--  lach  no;  teip  .  =  teip  i-(next)- 
iflteip_i  ==  HULL)  print.erronl);  "  " 

viblanklpageno,  22,  0,  22,  791; 
iflteip_i-)setup_£or  ==  UJJITILIZEDI I 

donejnputl); 

viprintflpageno,  22,  0,  KSS.COLOR,  'W,   "Setup  lachine  before  loading1); 
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return: 
I 
iflteip.i-)utjte  !=  0)1 

viprintflpageno,  22,  0,  HSG  COLOR,  "*s",  "Machine  is  not  free"); 

ok  =  FALSE: 

goto  get_load_aach; 

part_type  =  te«p_ii-)setup_for; 

repeat  =  teip_»->repeat: 

fori  teipji  =  teip_d-)part_info;\ 

teipji  !=  MILL  Si  1  (ltenp_pi-)ptype  ==  part.type)  SS\ 
(teipji-)repeat  ==  repeat) I ;\ 
teipji  =  teip_pi-)next); 
iflteipji  ==  NULL)  print.errorpU; 
iflteipji->pre  >  0)1 

changelLOAD,  lien  10,  dept  no,  repeat,  part  type): 
I 

done. input!): 
if(teip_pi-)pre  (=  Oil 

viprintflpageno,  23,  25,  B.BLACI+FJUOII+IIT,  "Ho  parts  in  the  pre  area'l: 

return: 

/'  Get  the  user  input  for  scheduling  love  event  '/ 
void  user  novel! 


void  doneinpat  (void) 

[ 

positionjursorlpageno,  23,  0): 

hidejursorl); 

viblanklpageno,  22.  0,  22,  79): 

viblanklpageno,  23,  0,  23,  791: 
I 

/'  Sap  the  part  type  to  corresponding  integer  '/ 
int  iap_char(ch) 
char  ch; 
I 

retumlch-6i); 


int  gueryll 
I 
char  ch: 

setjagelll; 
autojurchase  =  TRUE: 

viprintfll,  23,  13,  KSG.COLOR,  "W,   "Do  you  leant  autoiatic  purchase  of  raw  laterials'  <y/n>")- 
ch  =  getchl); 

if ( (ch  ==  VI  II  (ch  ==  T||| 
autojurchase  =  FALSE: 
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viblankll,  23,  0,  23,  791; 

autojetup  =  TRUE; 

viprintfil,  23,  25,  MSG.COIOR,  "*s",  "Do  you  Kant  autoiacic  setups?  <y/n>"l; 

en  =  getchl): 

ifllch  ==  VI  !!  (ch  ==  'I'|)| 

auto  setuD  =  FUSE; 
I 

viblankll,  23,  0,  23,  791; 
autojiove  =  TRUE; 

viprintfil,  23,  15,  MSG_COLOR,  "*s",  "Do  you  nant  autoiatic  laterial  transfers?  <y/n)"l; 
cl!  =  getchl): 
if  lien  ==  'n'l  II  let  ==  Till 

auto  Hove  =  FALSE; 
I 

viblankll,  23,  0,  23,  791; 

viprintfil,  23,  13,  HSG_C0L0R,  'is',  "Do  you  want  to  change  any  of  the  above  variables?  <y/n>"); 
ch  =  getchl I; 
ifllch  ==  'j'|  ||  (ch  ==  'Y'DI 

change  varsll; 
I 

viblankll,  23,  0,  23,  791; 
setjagelO); 

viblankll),  23,  0,  23,  791; 
viprintfil),  23,  IS,  H0.COUH,  "<s\  "You  can  change  the  nodes  by  pressing  ALT-IH: 


int  get_iodesll 

char  ch; 

viblanklO,  23,  0,  23,  79); 

viprintflO.  23.  15,  MSG.COLOR,  "*s\  "Press  space  bar  to  toggle  node  or  return  to  accept" 
vichgattIO,  16,  3,  6,  ILK); 
get_p_iode: 
ch  =  getchl); 

ifllch  ==  '  'I  (I  (ch  ==  H.mraill 
vichgattIO,  16,  3,  6,  BUI); 
iflch  ==''ll 

iflautojurchasell 

auto  purchase  =  FALSE; 
I  else  I 

auto  purchase  =  TRUE; 
I 

print_iodesl); 

vichgattIO,  16,  3,  6,  BUR); 
got:  getjjiode; 
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else 


vichgattIO,  IS,  3,  6,  BLUM; 
goto  get_s_iode; 


'else! 

I 
get_s_»ode: 


goto  get_p_iode; 
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ch  =  getchll; 

ifllch  ==  '  ')  !!  (ch  ==  Ijmillll 
vichgattIO,  II,  3,  6,  BUI) : 
if (ch  ==''][ 

if (auto_setupl  f 

autojetup  =  FALSE; 
else  [ 

auto  setup  »  TRUE: 
I 

print_«odesll: 

vichgattIO,  1!,  3,  6,  BLIII; 
goto  get_s_iode; 
else 

vichgattIO,  20,  3,  6,  BLUE): 
goto  get  I  lode: 
I 
lelsel 

goto  get  s  lode; 
I 
get_B_Bocle : 
ch  =  getchll; 

ifllch  *<=  •  ■)  ||  (ch  ==  IJIHIIHI 
vichgattIO,  20,  3,  6,  BUI); 
iflch  ■■  '  'II 

iflauto_«ovell 

auto  love  =  FALSE; 
I  elm  I 

auto  love  =  TRUE; 


print_iodei ( I ; 

vichgattIO,  20,  3,  6,  BUD; 
goto  get_i_tode: 

viblanklO,  23,  0,  23,  191; 
return; 


lelsel 


lelsel 


I 

goto  get_i_iode; 
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finclude  (stdio.h) 

♦include  "user\vi.h" 

(include  "user\si«.h" 

finclude  "usenprocess.h" 

'include  "usenstd.h" 

fdefine  dillxl    isiieof [xl/sizeof (x[0] ) )      /'  macro  to  return  the  number 

of  elements  in  a  structure  '/ 

"  —  Functions  to  process  events  —  " 

int  process_eventlvoid): 

int  checkjnventorylvoid): 

int  check_free_iachs(voidl: 

int  print_errorp Ivoid) ; 

int  printjrrordlvoidl; 

int  print_errorjlvoidl; 

int  initial jetaplvoidl; 

void  update_pacelvoid): 

void  update_[inance(voidl; 

void  update_stat_finance(void); 

void  update_stat_prod_info(void); 

void  update_act_report(voidl; 

void  update_!oom_clock(void); 

void  update_stat_clock(void): 

int  print_skip(intl; 

int  n«achjroc_ptype(DEPT>,  int,  int); 

int  update_zoom_»indo«lint,  int,  int,  char); 

/"  —  Private  functions  defined  in  process. c  —  */ 

static  void  update_scr_clk(void); 

static  void  update  jartjnfo  I  PART_I!tF0>); 

static  void  update_pre_info(PART_INFO>); 

static  void  updatejost_info(PART_INFO'); 

static  void  update_prod_info(PRODIICT«); 

static  void  update_clock(voidl: 

/'  Procedure  to  advance  simulation  clock  '/ 

int  advance_clock(dumiyl,  duimy2,  dum»y3,  dumiyD 

int  dumiyl,  dunyj,  dum«y3,  duimy4; 

[ 

tiie_no»  =  event_time: 

»eek_no»  =  »eek: 

day_no»  =  day; 

hr_no»  =  hr; 

minjoi  =  tin; 

update_scr_clk(); 

scheduIeiCLOCKTICK,  tiiejoitSl,  0,  0,  0,  0); 


/'  Function  to  update  the  clock  </ 

static  void  update  clock (I 

[ 

timejra  =  event_time; 

•eekjow  =  week; 

dayjoi    =  day; 
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hr.noi  ■  hr: 
lin.now  =  lin: 
update  scr  clkl 


/'  Function  to  update  the  screen  clock  '/ 

static  void  update_scr  clkl  I 

I 

viprintflO,  1,  1,  CLOCK.COLOR,  "Md",  week.nowl; 
iflweek.now  (  10)  viprintflO,  1,  1,  CLOCK  COLOR,  "*c",  Tl 
viprintf  10.  1,  7,  CLOCK.COLOR,  'Mi',  day'nowl: 
viprintflO,  4,  2,  CLOCK.COLOR,  "MdiMd", "hr.noi,  lin.now): 
ifllinjoi  <  10)  viprintflO,  4,  5,  CLOCK.COLOR,  "*c",  '0'); 
iflpageno  -  1)1 

update.zooi  clockl): 
I 
iflpageno  =»  3)1 

update.stat.clockll; 


/'  function  to  update  the  clock  in  statistics  screen  «/ 

void  update  stat  clock  1 1 

I 

viprintf 13,  0,  11,  CLOCK.COLOR,  "*2d",  week  no*) ; 

iflieek.now  <  10)1 

viprintf (3,  0,  11,  CLOCK.COLOR,  "\c\   '0'); 

viprintf 13,  0,  20,  CLOCK.COLOR,  "»ld\  day  noil; 
»iprintf!3,  0,  69,  CLOCR_COLOR,  "%2d:*2d",  hr.noi,  nin  noil: 
ifliin.now  (  10)1 

viprintf (3.  0,  72,  CLOCK.COLOR,  "*c\  'O'l; 


/'  function  to  update  the  clock  in  the  zooi  window  ■/ 

void  update  zooi  clockl) 

I 

viprintf II,  1,  9,  CLOCK.COLOR,  "Md\  weekjiow); 

iflweek.now  <  10)1 

viprintf  II,  1,  9,  CLOCK  COLOR,  "»c",  'O'l; 

I 

viprintf II,  1,  1!,  CLOCK.COLOR,  "Md",  day.nowl; 

viprintf (1,  3,  11,  CLOCK.COLOR,  "Hd:Md\  hr  now,  iin  now); 

ifliin.noi  <  1011 

viprintf U ,  3,  14,  CLOCK.COLOR,  "tc\  'O'l; 

I 
I 

/'  function  to  update  the  pace  display  on  the  screen  '/ 
void  update  pacel) 
I 
viprintflO,  12,  6,  CLOCK.COLOR,  "*ld\  pacel; 
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<"  The  Event  Processor  "/ 
int  process.eventll 


int  i,  j; 

DEPT  "teip  d: 

MACHINE  "teip.n; 

int  aach_no,  >aki 

i.idle: 

if f ideleted) [ 

£orli=0; 

i  <  diilcal.fncsl;  i++l  [ 

: 

=  strciDlcal  fncs[i) 

■naie, 

event.type); 

i 

£lj  ==  Oil 

I'ciljncsli], 

£nc) levent.varl,  event_var2,\ 

event.varl, 

event_var4) ; 

del.event.froi 

.call] 

return  10) ; 

telsel 

iElstrciplevent.type,  LOAD)  ==  0)1 

forlteip.d  =  dept.h;  teip.d  !  =  NULL  55  teip  d->dept_no  !=  event  var2;  teip  d  »  tesp  d->nextl; 
iflteipj  ==  NULL)  print.errordll; 
i£(event_vatl  ==  0)1 

for  I teip.i  =  teip_d->iaeh;  teip.i  !=  HULL  S4\ 

!  lteip_i->setup.£or  ==  event_var4  U  te«p_i-)repeat  ==  event  var3);\ 
teip.i  =  teip.i- >next); 
iflteip.i  ==  NULL)  print.eriorill) 
if(teip_«-)istate  ==  1)1 

iach_no  =  teip.a->iach_no; 
lake  idle  =  1; 
I  else! 

lake  idle  =  0: 
I 
else  I 

iach.no  =  event.vatl: 

ifliake.idlell 

forlteip.i  =  teip_d->iach;  teip.i  !=  NULL  (i  teip_i->iach_no  !=  lach  no:\ 

teip  ■  =  teip  i-)nextl; 
iflteip.i  ==  NULL)  print.erronl); 
i£(lteip.i-)istate  ==  1)  55  llteip.i-Jrepeat  ==  event.varD  U\ 

lteip.i->setup_for  ==  event_var4)))l 
viprintflO,  teip.i-)ro»*l.  teip_i->col+l,  HACHIN!_COLOR,  "»c\  IDLE); 
teip_i-)ti«e_set«p  +=  ltiie_no»  -  teip_«->state_chan?e  tile); 
teip.i-)state_change.ti«e  =  tiie.now: 
teip_i->istate  =  0: 
update_c';Ockll; 
i£lteip.a->dept_no  ==  zooi.deptll 

update_zooi_»indo»lteip_i->iach_no,  teip_i-)istate,\ 

teip.i-Hepeat,  teip_i-)setup_for_in_char) ; 

I 
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del_event_fro»_cal(): 
return  11); 

I 

/'  Procedure  to  nove  the  part  '/ 

int  lovejartlrepeat,  part_type,  deptjo,  trans_batch) 

int  repeat,  part  tvpe,  deot  no,  trans  patch: 

I 

int  nthjccurance,  opjo,  to_dept,  earnings,  new  repeat,  i; 

KEPT  'teipj; 

PiRT.INPO  'teipji; 

PRODUCT  'teup  prod: 

MACHINE  'teipji; 

char  pchar: 

for(op_no=0,  nth_occurance=0:  nthjccurance  !=  repeat+1:  nth_occurance+t,op  not+ll 

£or(:route[part_type-l][opjol  !=  deot  no:  00  not+l; 
I 

to_dept  =  route[part_type-l]  [opjo): 
for (i-0,  nei_repeat=0;  i  (  opjo;  i++) | 

i£lroute(part_type-lHi]  ==  cojeptll 

nei  repeattt; 
I 
I 
irltojept  ==  Oil 

£orlteipjrod=product;  te«p_prod-)prod_no  !=  part  type; \ 

teipjrod  =  teipjrod->next); 
forlte«p_d  =  deptj;  teipji  !=  BULL  54  te«p_d->dept_no  !«  dept  no;\ 

teip_d  =  teip_d->next); 
forlteipji  =  teip_d-)part_info;  teipji  !»  HILL  U\ 

!  Iteipji-Jptype  ==  part_type  Hi  teip_pi-)repeat  ==  repeat) ;\ 
teipji  =  te«p_pi->neitl; 
update  jost_infolte«pji): 
teip_prod-)pty_produced  *■  trans_batch; 
update  jrodjnfo  I  teipjrod); 
earnings  =  teipjrod->price'trans_batcli; 
cash  ♦=  earnings: 
stats-)sales  revenue  +=  earnings; 
I  else  I 

forlteipji  =  deptj;  teipj  !■  NULL  a  teip_d->dept_no  !=  dept_no;\ 

teipj  =  te«p.d->next); 
forlteipji  =  teipji->part_info;  teipji  !■  NULL  4S\ 

!(teipji-)ptype  ==  part_type  Si  teipji-)repeat  ==  repeatl;\ 
teipji  =  teipji->next); 
update  jostjnfolteipji); 
forlteipji  =  dept_h;  teipj  !=  NULL  Si  teipjHdeptjo  !=  to_dept;\ 

teip_d  =  teipj->next); 
forlteipji  =  teipji->part_info:  teipji  l>  NULL  (i\ 

!(teipji-)ptype  ==  part, type  Si  teipji-)repeat  ==  ne»  repeat) ;\ 
teipji  =  teipji->nextl; 
teipji-)pre  t>  trans.batch; 
update  jre_in£o(teipji); 

for(teip_i  ■  teip_d-)iach;  teip_i  !=  NULL  U\ 

!lteip.i-)repeat  «  newjepeat  55  teip_i->setup_£or  ==  part_typel;\ 
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temp  i  =  temp  i-)next); 
ifltempjn  !=  NULLII 

/'  There  is  a  machine  running  this  part_type  "/ 
iflltemp_«->«state  ==  0)  ii  (te«p_pi-)pre  )  Oil  I 

'"  That  machine  is  idle  and  if  pre  is  not  eipty  >/ 
/'  This  case  is  taken  care  of  by  checkjreejiachsll  "/ 


I  else  I 


/*  There  are  no  machines  running  this  part_type  '/ 
if(temp_d->nmachjn_use  <  temp_d->niachines)l 

/'  And  there  are  some  unused  machines  '/ 
if  (autosetnp)  I 

forltenp_i  =  temp_d->mach:  temp.m  !  =  NULL  Si  te«p_m-)setupJor  1=  UH  UTILIZED:\ 

teip_i  =  temp_i->nextl; 
ifltempjn  ==  NULL)  viprintflO,  23,  0,  HSS.COLOR,  "*s",  "check  nmach.injse"): 
tempj-irepeat  =  new_repeat: 
tempji->setup_for  =  part_type; 
jap_part_typelteip_u->setup_for,  ipcharl; 
teip_i-)setup_£orJn_char  =  pchar: 
temp_m->state_change_time  =  tiaejon; 
tejp_m->mstate  =  1; 
schedule  I  SETUP,  time_no»*lL,  temp_m->machjio,\ 

temp_d->dept_no,  temp_i->repeat,\ 
teip_«->setup_for); 
teip  d-)mach  injsett: 
I 
I 


I 

expense  ♦=  UIJUIIIUR  COSt: 

cash  -=  aajusimjoh; 

stats-)cash_no»  =  cash; 

stats->iat_hand_exp  t=  HAT_HANDLING_COST ; 

updatejinanceil: 

update_clockl); 

return  10) ; 


I 


/'  Procedure  to  load  the  machine  '/ 

int  loadjsachinelmachjio,  deptjo,  repeat,  part_type) 

int  »ach_no,  dept_no,  repeat,  part_type; 


DEPT  Uemp.d; 
HACHINE  'temp  m; 
PART.INFO  'tempji; 
int  ajre; 


for  I te«p_d  =  dept_h;  temp_d  !=  NULL  ii  temp_d->dept_no  1=  dept_no:\ 

temp  d  =  temp  d->next); 
ifltempj  ==  HULL)  print_errord(); 

iflMCh.no  !=  OH 

for(temp_m  =  temp_d-)iach:\ 

te«p_i  !=  NULL  ii  temp_m-)»ach_no  !=  iach_no:\ 
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teip_i  =  teip_i->next) ; 

iflteip.i  ==  NULL)  printjkipll): 

for  I  teip_pi  =  teip_d->part_info:  teipji  !=  HULL  45\ 

!lteip_pi->ptype  ==  part_type  SS  teip_pi->repeat  ==  repeat] :\ 
teip  pi  =  teip  pi->next) : 
iflteipji  ==  HULL]  print_skip(2l; 
iflteipji-lpre  <  0]  print_skipl3); 
if(teip_pi->pre  ==  Oil 

teipjn->tiie_setup  *-  !tiie_noi  -  teip_i->state_change_tiie); 

temp_B-)state_change_time  =  tiie_no»; 

te«p_i->istate  =  0; 

viprintflO,  teip_i->ro»+l,  teip.i-)col*l,  NACHIRE_COLOR,  "*c',  IDLE); 

update_clock(l; 

iff  tenp_d- >dept_no  ==  rooi_dept)l 

ipdate_zoon_»indo«lte>p_«-)iach_no,  teip_i->istate,  teip_i->repeat,  teip_i->setup  for  in  chart; 

return  101: 
I 
iflteip_i-)istate  ==  01 1 

teip_i-)tiie_idle  +=  (tile  Jon  -  teip_»->state_change  time) ; 

teip  i-)state  change  tile  =  tine  no»; 
I 
iflteip_i->istate  ==  1)1 

teip_i->tiie_setup  +»  Itiiejiow  -  teip_i->state_change_tiie); 

teip  i->state  change  tiie  =  tiie  now; 
I 

teip_i->istate  =  2: 

viprintflO,  teip_i-)roi*l,  teip_l->col+l,  HACHINE_COLOR*BLNR,  "*c",  PROCESSING); 
iflteip_d->deptjio  ==  zooi_dept)l 

update jooi_windo»lteip.i->iach_no,  teip_i-)istate,  teip_i->repeat,  teip_i->setap_for_in  enarl; 

schedule (UNLOAD,  tiie_no»tlunsigned  long  int)itiie(repeat|[deptjo-l] [part  type-l],\ 

teip_i->iach_no,  dept_no,  0,  0); 
Bjre  '  niach_proc.ptypelteip_d,  repeat,  part_type); 
iflteip_pi-)pre  )  njre'HH 

schedulelLOAD,  tiiejio»+(unsigned  long  intlitiiejrepeat] [dept_no-l| [part_type-l],\ 
lachjo,  deptjo,  repeat,  part_type); 

forlteip_i  =  teip_d->iach;\ 

teip.i  !=  NULL    U\ 

Mteipji-Jsetupjor  ==  part_type  U\ 

teip_i->repeat  ==  repeat  Sii' 

teip_i-)istate  ==  0);\ 

teip_i  =  teipjn-inextl; 
iflteip_i  ==  NULLI  print_s*ipil) ; 

forlteip_pi  =  teip_d-)part_info;  te»p_pi  1=  NULL  U\ 

!(teip_pi-)ptype  ==  part_type  SS  teipji-)repeat  ==  repeat) ;\ 
teip  pi  =  teip  pi->next); 
if(teip_pi  ==  NULL)  print_skip(2); 
iflteip_pi-)pre  (  0]  printjkipli); 
iflteip_pi-)pre  ==  Oil 

teip_i-)tiie_setup  *=  Itiie.noi  -  teip_i->state_change_tiie); 


else 
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teip_«->state_change_tiie  =  ti«e_no»: 

teip_n->istate  =  0: 

viprintflO,  teip_«->ro«+l,  te«p_i->coltl,  HACHINE_COLOR,  '*c',  IDLE]; 

update_c!ockll; 

if  I te»p_d->dept_nc  ••  zoo«_deptll 

update_zooi_«indo»ite»p_i->iachjio,  ceip_i->istate,  teip_i->repeac,  temp  i->setup  f or_in  char); 

returnlO] ; 
I 
iflteip_«->»scate  «  01 1 

teip_i->tiie_idle  t«  [tiujioi  -  teip_i->state_change_cimel : 

teip  i-)state  chanae  tine  =  cine  non; 
I 
if(teip_«->«state  ==  1]  i 

te«p_i->ti«e_setup  +=  :tiie_no»  -  teip_i->state_change_tiiel: 

teip_i->state_cbange_tiie  =  tiie_nov; 

teip_i->istate  =  2; 

viprintflO,  teip_i->roi+l,  teip_i->col+l,  IiaiB.COlOE+MIX,  "*c",  PROCESSING > : 

if(teip_d-)dept_no  «■  zoo«_depti 

update_zooi_»indo»lte«p_i->iach_no,  teip_i-)utate,  teip_i-)repeat,  teip_i->setup  for  in  char); 

schedule I0NLOAD,  tiie_no»+lunsigned  long  int)itiie(repeat](dept_no-ll[part  type-l],\ 

teip_i->«achjio,  dapt.no,  0,  01; 
njre  =  nnach_proc_ptypelteip_d,  repeat,  part_type); 
if(te«p_pi-)pre  )  n_pre'2-l)l 

schedule (LOAD,  time _no»+ [unsigned  long  intliti«e[repeat] [deptjo-lI[part_type-l],\ 
lachjo,  deptjio,  repeat,  part_typei; 

I 

update_clockl); 
returnlO] ; 
I 

."  Procedure  to  unload  the  lachine  '/ 

lot  unload_»achinefiach_no,  deptjio,  dunyl,  du««y2) 

int  lachjio,  deptjio,  dunyl,  duiiy2; 

DEPT  'teip  d; 
KACHINE  'teip  ■; 
PARTJNFO  'teipjii; 
int  repeat,  part_type; 

for  I teip J  =  deptj;  teip_d  1=  HULL  Si  teipjHdeptjio  !»  dept_no;\ 

teip_d  =  teip  d-)nextl ; 
if  Iteip.d  ==  HULL)  priot.errordO; 
fori teip  ji  =  teipjHiach;  teipji  !=  NULL  U  te«p_i-)iach_no  !■  lacs  no:\ 

teip_i  »  te»p_«->next); 
if  I teip  ji  ==  HULL]  print_erronll ; 
repeat  »  teip_«-)repeat; 
part_type  =  teipjt->setupJor; 
forlteipji  =  teip_d->part_info;  teipji  !=  NULL  U\ 

!(teipji-)ptype  ==  partjype  ii  teip_pi->repeat  ==  repeat) ;\ 
teipji  =  teip_pi-)next); 
if  I  teipji  ==  NULL]  print.errorpll; 
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teip_pi->pre--: 

teip_pi->post*t: 

update  jwtjnfo  I  tejpji); 

teipji-niiejusy  *=  !tine_no»  -  ce»pji->state_change_tiie): 

teup_m->scate_change_time  =  tiiejioi: 

:e«pji->»state  =  0: 

viprintflO,  te»pjn->roitl,  teip_i->col+l.  MACHINE  JOLOR,  '*c\  IDLE) : 

update_clockl): 

if(teip_d->dept_no  --  zoo«_dept)[ 

apdate_zoo«_»indo»ltei,pji->jachjio,  teip_i->istate,  teip_i->repeat,  te«p_i->setup  for  in  charl 

iflautojiove  i«  [teip_pi->post  ==  TRANSFERJATCHUI 

schedulelNOVE,  tiie_no«,\ 

repeat,  part.type,  dept.no.  TRANSFER  BATCH]: 

teip  pHpost  -=  TRANSFERJATCH: 
I 
return  101; 


/'  procedure  to  purchase  raw  Material  '/ 

int  purchase_raw«atira»_iat_no,  part_type,  qnty ,  dumyl 

int  ran  lat  no,  part  type,  qnty,  dunj; 

I 

int  cost,  dept  no; 

DEPT  «teip_d:  " 

PARTJNFO  'teipji; 

RAH  'teip.rai; 

fori teip_raw  =  ra«_aat:\ 

te«p_ra»  !=  HULL  Si  teip_ra»->ra»_iatjo  !=  ran  aat  no;\ 
teip_ra»  =  teip_ra»->next)'; 
iflteip_rai  ==  NULL)  printjrrorpl); 
cost  =  teip_ra»->cost'qnty; 
expense  *=  cost; 
cash  -=  cost; 
stats-)cashjio»  ■  cash: 
stats-)ra«_iat_exp  +=  cost; 
updatejinancell ; 
dept_no  =  route(part_type-l][0]; 
forlteipj  =  dept.h;  teipji  !=  NULL  Si  teip_d-)dept_no  1=  dept_no;\ 

teip  d  =  teip  d-)next) 
iflteip.d  ==  NULL!  print_errord[| ; 
forlteipji  =  teip_d->part_info;\ 

teipji  !=  NOLL  iS  te«pji-)ptype  !•  part  type;\ 
teip  pi  =  teip  pi->next): 
if  (teipji  ==  NULL)  print  jrrorpll; 
if (modifier  ==  USER .SPECIFIED)  I 

teipji-lpre  *=  qnty: 
I 

/■  display  the  updated  contents  of  pre  •/ 
update jre_info(teipji): 
update  jlockl  I; 
retum(ll); 
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"  Function  to  print  error  message  if  something  is  wrong  in  partjnfo  '/ 

int  print  errorpi) 

I 

if (pageno  )  Oil 

pageno  =  0; 
set  page  I pagenot : 
I 

viprintflO,  22,  0,  JOM,  "U\  "Error  in  part  info") : 
exitlOl; 


/'  Function  to  warn  about  unprocessed  events  »/ 
int  printjkipinumberl 
int  nuiber; 
[ 

if (pageno  )  Oil 

pageno  =  0; 
setjageipagenol; 
I 
if (nuiber  ==  II I 

viprintflO,  22,  0,  NORM,  "ts",  "No  machine  free.. skipping  one  load" 
exit  1 01; 
I 
if  (nuiber  —  211 

viprintflO,  22,  0,  NORN,  '»s\  "Error  in  part  info.. skipping  load") 
exitIO); 
I 

iflnumber  ==  311 
beepl); 
viprintflO,  22,  30,  NORN,  "»s",  "No  part  in  pre. .skipping  one  load" 


I*  Function  to  print  error  nessage  if  something  is  wrong  in  department  structure  ■/ 

int  print  errordl) 

( 

iflpageno  )  01 1 

pageno  =  0; 

set  pagelpageno): 

I 

viprintflO,  22,  0,  NORN,  "*s",  "Error  in  dept  list") ; 

exitlOl; 
I 

/'  Function  to  print  error  lessage  if  something  is  wrong  in  machine  structure  '/ 

int  print  erronll 

[ 

iflpageno  )  Oil 

pageno  =  0; 

set  pagelpageno) ; 

I 

viprintflO,  22,  20,  NORN,  "*s\  "Error  in  machine  list'); 

exitlOl; 
I 
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/'  Procedure  to  setup  machine  "/ 

int  setupjiachineliachjic,  dept_no,  repeat,  part_typel 

int  lachjo,  deptjio,  repeat,  part  type: 

i 

DEPT  'teip  d: 
"ACHINE  'teip  ■; 
PA8TJNF0  'teipji: 
char  pchar; 

forlteipj  =  deptj;  teipj  !■  NULL  45  teip_d->dept_no  !■  dept  ao;\ 

teip  d  =  teip  d- (next I; 
iflteipj  ==  »UHI  print_errord(): 
Eorlte«p_i  =  teip_d->«ach:  teipji  !  =  NULL  4S  teip_i->iachjio  !=  lach  no:\ 

teipj.  =  teip_i->neitl; 
iflteipj  ==  NULLI  print_errcri() ; 
il'liodifier  ==  USER_SPECIFIEDJ  I 
teip_i->repeat  =  repeat; 
teip_i->setup_for  =  part_type; 
iapjart_typelpart_type,  Spcharl; 
teip_i->setup_for_in_char  =  pchar; 
iflteipjn-dstate  ==  Oil 

teipju-niiejdle  +=  ItlHjloi  -  teip_i->state_change_tiiel: 
teip  «->state_change  tine  =  tiie  now; 
I 
if Iteipjn-iistate  ==  21 1 

tetpji-niiejiusy  ♦«  itiiejo*  -  teip_i->state_change  tile  I; 
teip  «->state  change  tile  =  tile  no»; 
I 

teip  i-)istate  =  !; 
I 
itlrepeat  )  Oil 

viprintflO,  teip_i-)ro«+l,  teip_i-)col-l,  !  BLUE+F  GREEN+IHT,  'Mi',  repeat) • 
lelsel 

viprintflO,  teip  i->roi+l.  teip  i->col-l,  I  BLUE+F  GREEN+INT.  "*c"    '  '!■ 
I  " 

viprintflO,  teip.i->roi*l,  teip.i-)col,  KACHIHE.COLOR,  "»c\  teip  i-)setup  for  in  char); 
viprintflO,  teip_i->ro»+l,  teip_i-)coltl,  MCHlis.COLOMUIF.,  "*c\  SETTING  upf:  " 
i£lteip_d->dept_no  ==  zooi_deptll 

update_zooi_»indo»iteip.i-)iach.no,  teip_i-)istate,  teip.i-)repeat,  tenp_a->setup_for_in_char) ; 

forlteipji  =  teip_d-)part.info;\ 

teip_pi  !»  NULL  U  I  l!teip_pi-)ptype  ==  part.type)  SS\ 
(teipji-)repeat  ==  repeat))  ;\ 

teipji  =  teipji->nextl; 
iflteipji  ==  NOLL)  printjrrorpl); 
schedulelLOAD,  tiie_no»+lunsigned  long  int) stiie [repeat] [dapt_no-l] [part_type-I] ,\ 

lachjo,  deptjo,  repeat,  part  typei; 
updatejlockl); 
returniOl; 


/'  Function  to  check  inventory  '/ 
int  check_inventory() 

DEPT  'teipj; 
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for(i=0:  i  <  njtypes;  it+ll 
deptjio  =  routed]  [01; 
forlte»p_d  =  dept_h;\ 

teip_d  :=  HULL  W  te«p_d->dept_no  !  =  dept  no; \ 
teipj  -  teip_d->next): 
forlteupji  =  teipJ-)part_info;\ 

teipji  !=  lOIl  Si  teipji- (ptype  1=  |i+I];\ 
teipji  =  teip  pi->ncxtl; 
iflte»p_pi->pre  <=  NINJNVII 

teipji->pre  +=  mWlJMJlll: 
schedule (PURCHASE,  tiie_no»*fL,\ 

rawjcr  ptype[i),  i+1,  PURCHASE  LOT  SIZ 
I  "     " 


/'  Function  to  update  cash  and  expense  on  the  screen  ■/ 

void  update  financed 

I 

viprintflO,  7,  1,  CASH_C0L0R,  "«ld",  cash); 
if  (expense  !=  OK 

viprintflO, 10,  1,  EXPEHSE_COlOR,  "Hid",  expense); 
I  else { 

viprintflO, 10,  1,  EXPENSE  COLOR,  "*s\  "    ■); 


iflpageno  ==  3)1 

update_stat_financel); 


/'  Function  to  update  Financial  Report  in  Statistics  window  ■/ 
void  update  stat  finance  I) 
[ 
int  ro»,  col: 

ro»  =  stats->fin_ro»; 
col  =  stats-)fin_col; 

viprintfll,  roi-1,  col,  STAT.FIH_COLOR,  "Hid",  stats-)start  cash); 
viprintf(3,  ro»,  col,  STAI.PIK.C0108,  "*71d",  stats->cash  now); 
viprintf(3,  ro»*2,  col,  STAT_FIN_COLOR,  "*7d",  stats->ra»~iat  exp); 
viprintfld,  ro»t3,  col,  STATJIH.COLOR,  "*7d",  stats->iat~hand~  exp); 
viprintfIS,  ro»*4,  col,  STAT_FH_COMR,  "»7d",  stats->other  op'expl; 
viprintf(3,  ro»+6,  col,  STATJIH.COLOR,  "Mid",  stats-lsales  revenue); 
viprintfU,  rot+7,  col+1,  STATJIH.COLOR,  "»+6d",  stats-)net"cash_flo») 

/'  Function  to  update  part  intonation  on  the  screen  '/ 
static  void  update  partjnfolptr  pi) 
PART  INFO  'ptrjif 
I 

DEPT  'ptr  dept; 

PART.IHFO  Uipji; 
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int  row,  ccl; 

if(ptr_pi->pre  !=  Oil 

viprintflO,  ptr  pi-)roi,  per  pi->col,  PRE  COLOR,  "Hi",   ptr  pi-)prel; 
lelsel  "   ' 

viprintflO,  ptr_pi->ro»,  ptr  pi->col,  PRE  COLOR,  "ts\  "   "I: 
I 
if(ptr_pi-)post  !»  Oil 

viprintflO,  ptr_pi->ro»,  ptr_pi->col+16,  POSTJOLOR,  "«3d",  ptr  pi-)postl: 
lelsel 

viprintflO,  ptr  pi->roi,  ptr  pi->col*16,  POST  COLOR,  "Is",  "     "I; 
I 

if(ptr_pi->dept_no  ==  zooijeptll 
row  =  woi.rottli 
col  =  zooi_col-13: 

forlptrjept  =  dept.h:  ptrjept  !=  SILL  SS  ptrjept->dept  no  !=  zoo«  dept;  ptr  dept  =  otr  dept->nen): 
iflptrjept  ~  JOLLI  print.errorpl!: 

forltupji  =  ptrJept->part_info:  up_pi  !=  HULL:  tipji  =  tip_pi->nextll 
if lt«p_pi->pre  !=  Oil 

viprintfll,  rot,  coi-1,  PRE_COLOR,  "  *3d  ",  tip  pi-)prel; 
lelsel 

viprintfll,  row,  col-1,  PRE  COLOR,  "is",  "        "I; 
I 
ifltipji-)post  !  =  0)1 

viprintfll.  row,  coi+23,  POST  COLOR,  "  *3d  ",  tipji-)postl; 
lelsel 

viprintfll,  row,  coi+23,  POST  COME,  "*s",  '   "]: 


/'  Function  to  update  pre  intonation  on  the  screen  «/ 
static  void  update  pre  infolptrjil 
PART  INFO  'ptrjif 
I 

DEPT  'ptr.dept; 

PART.INFO  <tnp.pi; 

int  row,  col; 

if(ptr_pi-)pre  !=  0)1 

viprintflO,  ptr_pi->row,  ptr  pi-)col,  PRE  COLOR,  "»3d",  ptr  pi-)prel: 
lelsel 

viprintflO,  ptr_pi-)row,  ptr_pi->col,  PRE_COLOR,  "*s",  "   "I; 

iflptr_pi->dept_i.o  ==  zooijeptll 
row  =  zooi.row+1; 
col  =  zoo«_col-13; 

forlptr.dept  =  deptj:  ptrjept  1=  NOLL  (i  ptr.dept-Jdept  no  !  =  zoo«  dept;  ptr  dept  =  ptr  dept->neitl- 
iflptrjept  ==  NOLL)  print.errorpl); 

forltipji  =  ptr.dept-lpart.info;  tipji  1=  NULL;  tipji  =  tipji->next)l 
ifltip_pi->pre  1=  Oil 

viprintfll,  row,  col-1,  PRE  COLOR,  ■  (3d  ',  tipji->prel: 
lelsel 
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viprintfll.  row,  col-1.  PRE  COLOR,  'ts\  "    "I; 


row**: 


I 


/'  Function  to  update  post  intonation  on  the  screen  '/ 
static  void  update  cost  infolptr  pi) 
PART  INFO  'ptr  pi: 
[ 

DEPT  'ptr  dept; 

MIT.DJK)  *t«pji; 

int  ro»,  col: 


if [ptrji->post  !=  0)1 

viprintflO,  ptrji->ro»,  ptr_pi->col*16,  POST  COLOR,  -%3d",  ptr  pi-)postl 
else  I 

viprintflO,  ptr_pi->ro»,  ptr_pi->col+16,  POST  COLOR,  '»s",  '   ")• 


iflptrji-)dept_no  ==  zooa_dept)  I 

ro»  =  zooi_roitl: 
col  =  rooi_col-13: 

forlptr_dept  =  deptj:  ptr.dept  !«  NULL  is  ptr_dept-)dept  no  !=  zooi  deot:  ptr  dept  =  ptr  dept-)nextl- 
lflptr.dept  ==  NULL)  print_errorpll;  "     "      " 

for  I  tip  ji  =  ptr_dept->part_info:  tip  pi  !«  NULL:  tip  pi  =  tip_pi->n«t]  I 
ifltip_pi-)post  !«  0)1 

viprintfll,  ro»,  col+33,  POST  COLOR,  '  *3d  ",  tip_pi->post): 
else 

viprintfll,  roi,  col+23,  POST_C0LOR,  *«s",  "    ■): 


/'  Function  to  update  product  intonation  on  the  screen  'I 
static  void  update  prod  infolprodjtr) 
PRODUCT  <prod_ptr: 

viprintflO,  prod_ptr-)ro»,  prodjtr-lcol+3,  PRODUCT  COLOR,  ■»«',  prod  ptr-)qntv  producedl 
lflpageno  ==  311 


update_stat_prod_infol 


/'  Function  to  update  product  intonation  on  the  statistics  Hindoo  '/ 

void  update  stat  prod  infol) 

I 

int  ro»  =  16: 

int  col  =  29: 

PRODUCT  'teipjrod: 

forlteipjrod  =  product;  teipjrod  !=  NULL:  teip  prod  =  teip  prod-)next,  roittll 
viprintflJ,  ro»,  col.  STJTJLS.COLOR,  "*5«",  teipjrod->qntyjroducedl; 
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/'  Function  to  update  Activation  Report  in  the  statistics  nindow  '/ 

void  update  act_repcrtll 

I 

unsigned  long  int  total.tiie: 

unsigned  long  int  prod.tiie,  setup_tiie,  idle_tine; 

int  prod,  setup,  idle: 

int  ro»,  col; 

DEPI  "teip  d; 

MACHINE  "teip.i; 

row  =  5; 
col  =  S4: 
forlteip.d  =  dept_h:  teip.d  1  =  NULL:  teip_d  =  teip  d-)next) 

forlteip.i  >  teip_d->iach:  teip.i  !=  HULL;  teip.i  =  teip.i-)nextll 
total  Jin  =  ti«e_no»; 
if  Itotal.tiie  !«"o|| 

setup.tiie  =  teip_a->tiie_setup; 
prod. tiie  =  teip.i-itiie.busy: 
iflteip.i-listate  ==  111" 

setup.tiie  t=  (tiie.noi  -  teip.i->state_cliange_tiiel 

iflteip.i-dstate  •«  21 [ 

prod.tiie  t=  I tiie.noi  -  teip_i->state.change_tiiel: 

setup  =  (intllddoublelsetup.tiie/ldoubleltotal.tiiel'lOOL); 
prod  =  (intlllldoublelprod.tiie/ldoubleltotal  tiiel'lOOL); 
idle  =  100-lprod+setup); 

viprintf  13,  rot,  col,  STAT.ICT.COLOR,  **3d",  prod); 
viprintfl],  ro«,  colt],  STAI.ACT.COLOR,  "*3d",  setup); 
viprintf  13.  ro«,  col+15,  STAT.ACT  COLOR,  13d",  idle) : 


/'  Function  to  schedule  initial  setup  events  •/ 

int  initial  setupl) 

[ 

DEPI  "teip  d; 

KACHINE  'teip  1; 

PART.IHFO  «teip_pi; 

int  i,  dept.no; 

char  pchar; 


forli=0;  i  <  njtjpes;  i++)  ( 
dept.no  =  routed]  [0]; 
forlteip.d  =  dept.h;  teip.d  !=  NULL  i!  teip_d-)dept.no  !  =  dept.no;\ 

teip  d  =  teip  d-)nezt); 
if (teip.d  ==  DULL]  print.errordl); 
if(teip.d->niach_in_use  <  teip_d->niachinesll 

forlteip.i  =  teip.d-)iach;  teip.i  !=  TOLL  Si  teip.i-dstate  !=  0;\ 
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teipji  =  teip_i->next); 


iflteip.i  ==  NULL)  break: 


teip_i->repeat  =  0: 
teap_«->setupJor  =  i*l; 
•ap_part_type(teip_a->setup_£or,  ipchar) ; 
teip_«->setup_fcr_in_char  =  pchar: 
ce«p_i->istate  =  I; 
teip_i->state_change_ti«e  =  ti»e_no»: 
schedule  (SETUP,  ti«ejo»+lL.  te»p_i->«ach_no,\ 

teap_d->dept_no,  teap_B-)repeat,\ 

te»p_i-)setup_£orl; 
teip_d->naach_injiseH: 


/'  Function  to  schedule  load  events  if  there  are  tree  machines  '/ 

int  check  free  tachsl) 

I 

DEPT  Heap  d; 

MACHINE  >teap  1: 

PART.INPO  'teip.pi; 

int  no_£ree_iach; 

int  n_pre: 

fotlteip.d  =  deptj:  teapj  l>  HULL;  teapj  =  teip  d->next)[ 
no_free_iach  =  FALSE: 

forlteip.i  =  teapjHaach;  teap_j  !=  NULL;  teip  ■  =  teip  i-)n«tl 
if(teip_i->istate  ■■  Oil 

if(teap_i->setupJor  !=  UNJTILIZEDII 
goto  found  free  aach: 


no  free  Bach  =  TRUE; 
I 
found_free_iach: 

if(!no_free_iachl [ 

i£(teap_a->astate  !=  UIJTILIZH))  I 

for(teap_pi  =  teap_d->part_info:  teipji  !=  NULL  5t\ 
!(lteapji->ptype  ==  teap_a->setup_for]  (S\ 
lteipji-)repeat  ==  teip_i->repeat)l;\ 
teipji  =  teipji-)nextl: 
iflteap_pi  ==  NULL!  printjrrorpll: 

n.pre  =  naachjrocjtypelteapj,  teap  pi->repeat,  teap_pi->ptypel; 
iflteip_pi-)pre  )  n_pre)l 

scheduledOAD,  tiie.noitlL,  0,\ 

teap_d-)dept_no,  teap_a-> repeat,  te«p_a->setup_for) 
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int  nmach_proc_ptypeidept_ptr ,  repeat,  ptypel 
DEPT  "deptjtr; 
int  repeat,  ptype; 
I 

MACHINE  'nacnjtr: 

int  count  =  0; 

forliachjtr  =  dept_ptr->iach;  iacn_ptr  !=  NULL : \ 

nachjtr  =  iachj>tr->nextlf 
i£((iach_ptr-)repeat  ==  repeat]  Si  lnacn_ptr->setup  for  ==  ptypel 1 1 
ifl«acn_ptr->»state  «=  2)1 
count+t: 


I 

return (count) ; 


int  update_zooi_«indo»l«acii_no,  istate,  repeat,  part  typel 
int  oach_no,  instate,  repeat: 
char  part  type; 
[ 
int  ro»,  col; 

ro»  =  l(zooi_ro»UI  +  (ljach,_no-l)'2ll; 
col  =  zoou_col+l; 
siitchlistatell 
case  0; 

viprintfll,  ro»,  col,  MACHINE_COLOK,  "»c",  IDLE); 
break; 
case  1: 

iflrepeat  >  Oil 

viprintfll,  ro»,  col-3,  B  BLDE+F  GREEN+IHT,  "*ld",  repeat) 
I  else  I 

viprintfll,  ro»,  col-3,  BJMEtF.GREElMNT,  "*c",  '  'I; 

viprintfll,  ro«,  col-2,  B_BLUE+F_GREEK+INT,  "*c",  part  typel; 
viprintfll,  ro»,  col,  MACHIKE_COLOE+BLHK ,  "*c\  SETTING  UP); 
break; 


case 


default: 

break; 


viprintfll,  ro»,  col,  NACHIHE_COLOK+BLSK,  '*c",  PROCESSING!; 
break; 
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♦include  <stdio.h> 
lisclude  (conio.h) 
♦include  "user\calendar.n" 
♦include  "userVsii.b* 

♦include  "user\vi.h" 
♦include  "userUeydefs.h" 
♦include  "user\std.h" 

static  CALENDAR  <cal_q,  'cal.l,  'cai  t,  >cal  user,  'cal  tetp; 
static  CALENDAR  'firstjine,  'lastjine; 
static  int  final_line: 

/'  —  Functions  for  calendar  nanageient  —  "/ 

void  fori_calendarlvoid): 

void  set_cal_»indo»(void); 

void  display_calendarlvoid): 

void  get_next_eventlvoid): 

void  dispjast.linelint): 

void  displayjinelint,  CALENDAR'); 

void  schedulelcnar',  unsigned  long  int,  int,  int,  int,  int) ; 

void  changelcuar',  int,  int,  int,  intl; 

void  del_event_froi_cal(void); 

void  dispose_calendar(void); 

void  set_caljguplvoid); 

void  set_caljgdn(voidl; 

void  set_cal_l_up|voidl: 

void  set_cal_l_do«n(void); 

void  edit_calendar(voidl: 

void  delete_eventlvoid); 

void  «ser_schedulelvoid): 

void  update .lodifier(CALENDAR'); 

/'  —  Private  functions  to  calendar. c  —  '/ 
static  void  dispiay_details(int,  CALENDAR'); 

/'  Function  to  fori  the  calendar  «/ 

void  fon_calendarl) 

I 

unsigned  long  int  elk  tile; 

CALENDAR  'teip; 

cal_q  =  cal.h  =  cal.t  =  caljser  =  cai  teip  =  NULL; 

cal.q  =  ICALENDAR')iy_ialIoc(sizeof(CALENDARI); 

calj  =  cal_t  =  caljser  =  cal_teip  =  cal  q; 

cal_h->iodifier  =  CLOCK  NODIFIER; 

cal_h-)tiie  =  1L; 

tiie_to_stringlcalj->tiie,  cal  h); 

cal_h-)fnc_ptr  =  CLOCI.TICI; 

cal_h-)a  =  0; 

cal  j->b  =  0; 

cal_h->c  =  0; 

calj->d  =  0; 

calj-)prev  =  NULL; 

teip  =  calj; 

forlclk_tiie=2L;  clkjiie  (  6L;  elk  tiiet+H 
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teip->next  =  (CALENDAR'  ]  ny_aalloc  i  sizeof  ICALENDAR) 

tejp  =  teip-)next; 

teip->prev  =  cal_t; 

cal_t  =  teip: 

"eip->iodifier  =  CLOCK ^MODIFIER: 

teip->tiie  =  clkjiie; 

ti«e_to_string ( temp->cime,  temp! ; 

teip-)fnc_ptr  =  CLOCI.TICI; 

teip-)a  =  0; 

teip->b  =  0; 

teip-)c  =  0: 

teip->d  =  0; 


cal_t->next  =  NOLL; 
teip  =  NULL; 


."  Function  to  set  the  visual  calendar  limits  '/ 

void  set  cal_»indo»i) 

I 

int  nlines; 

first.line  =  calj; 

forlnlines=0,  last_line=first_Iine:\ 

last_line-)next  !=  NOLL  is  nlines  (  S_LIKES:\ 
last  line  =  last  line-next,  nlines**); 
I 

/'  Function  to  display  the  calendar  in  the  calendar  »indo«  '/ 

void  display  calendar  (I 

I 

int  i; 

CALENDAR  'dispjine: 

viblank!2,  0,  0,  21,  791; 

forli=0,  disp_line=first.line;  disp.line  !=  last_line->next;\ 

dispjine  =  disp  linoieit,  i*t)[ 
viprintf (2,  i,  0,  CALJIOD.COLOR ,  "*c  ",  disp  line-)iodi£ier]; 
viprintf (2,  i,  2,  CAL.IISE.COLOR,  "*2d:Md:i2~d:»2d  ",\ 

disp_line->»eeks,  disp_line-)days,\ 
disp_line-)hrs,  disp_line-)iins) ; 
ifldisp_line->iins  <  10)  viprintf  12,  i,  10,  CAL  MB  COLOR,  -»c" 
viprintf (2,  i,13,  CAL_FNC_COLOR,  "»s\  disp  line-)fnc  ptr); 
display  detailsli,  disp  line); 
I 

final  line  =  i-1; 
I 

/'  Function  to  display  the  details  in  the  calendar  line  '/ 
static  void  display_detailslscr_line,  caljtr) 
int  scrjine; 
CALENDAR'  'cal  ptr; 
I 
char  pchar; 
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if(strcnplcal_ptr->hc_ptr,  CLOCK.TICEI  ==  Oil 

viprintf  12,  scr  line,  23._CAL_FNC  COLOR,  "%c",  '  'I: 

if(strciplcal_ptr->fnc_ptr,  PURCHASE)  ==  Oil 

viprintf (2,  scr_Iine,  21,  CAL.FKC.COLOR,  "*s",  -      "I; 

viprintf (2,  scr.line,  24,  CAL.REST.COLOR .  "»s\  "ran:  "I: 

viprintf (2,  scr.line.  29,  CALJEST.COLORtINT,  "*»■,  cal  ptr->a); 

viprintf 12,  scr.line,  30,  CAL.RESI.COLOR,  "ts",  "  for  ptype  "I; 

•ap.part.type (cal.ptr-)b,  ipcharl ; 

viprintf (2,  scr.line,  41,  CAL.REST.COLOR+IIIT.  *»c",  pcharl: 

viprintf (2,  scr.line,  42,  CAL.RESI  COLOR,  "ts\  •  qty:  "); 

viprintf (2,  scr.line,  48,  CAL_REST_COLOR+IHT,  "*d",  caijtr-)c); 

iilstrcip(cal.ptr-)fnc.ptr,  SETUP)  ==  Oil 

viprintf (2,  scr.line,  18,  CAL.WC  COLOR,  'is1,  "    "|; 
viprintf (2.  scr.line,  24,  CAL.REST.COLOR,  "*s".  "mach  "I; 
viprintf (2,  scr.line,  29,  CAL_REST_COLOR+I»T,  "*ld",  cal  ptr->a); 
viprintf 12,  scr.line,  30,  CAL.REST.COLOR,  *»s\  "  in  dept  "): 
viprintf (2,  scr.line,  39,  CAL_REST_COLOR+mT,  "Md",  caljtr-)b); 
viprintf (2,  scr.line,  40,  CAL  REST  COLOR,  "is",  "  for  ptype  "I; 
i£(cal_ptr->c  )  Oil 

viprintf (2,  scr.line,  51.  CALJEST.COLORtINT,  "Hd",  cal_ptr->cl; 
I  else  I 

viprintf  12,  scr  line,  51,  CAL  REST  COLOR,  '*c\  '  'I; 
I  -        -   - 

•ap.part_typelcal_ptr-)d,  ipcharl; 

viprintfi2,  scr.line,  52,  CAl_REST_COLOR*INT,  "»c",  pcharl; 

if(strcip(cal_ptr-)fnc_ptr,  LOADI  ==  0)1 

viprintf  12,  scr.line,  17,  CAL  FNC  COLOR,  "W,   "     "|; 
iflcal.ptr->a  ==  Oil 

viprintf 12,  scr.line,  24,  CAL.REST.COLOR,  "ts",  "free  lacn  in  dept  "I: 

viprintf (2,  scr.line,  42,  CAL.REST.COLOR+IST,  "tld",  cal  ptr-)bl; 

viprintf (2,  scr.line,  43,  CAL_REST~COLOR,  "ts",  "  setup  for  "I: 

iflcal_ptr-)c  )  Oil 

viprintf (2,  scr.line,  54,  CAL  REST  COLOR+INT,  "*ld",  cal  ptr-)cl 
lelsel 

viprintf [2,  scr  line,  54,  CAL  REST  COLOR,  "*c*.  '  'I; 
I  "   " 

iap_part.typelcal_ptr-)d,  ipcharl ; 
viprintf 12,  scr.line,  55,  CAL.REST.COLOR+MT,  "*:',  pcharl; 

viprintf 12,  scr.line,  24,  CAL.REST.COLOR,  "ts",  "lach  "I; 
viprintf 12,  scr.line,  29,  CAL.REST.COLORtMT,  "tld",  cal  ptr->a); 
viprintf 12,  scr.line,  30,  CAL.REST.COLOR,  "ts\  "  in  dept  "I; 
viprintf (2,  scr.line,  39,  CAL.REST.COLOR+Ilir,  "tld",  cal  ptr-)b); 
viprintf (2,  scr.line,  40,  CAL  REST  COLOR,  "ts",  "  setup  for  "I; 
iflcal_ptr-)c  )  Oil 

viprintf  12,  scr.line,  51,  CAL  REST  COLORtMT,  "tld",  cal_ptr->c|- 
lelsel 

viprintf  12,  scr.line,  51,  CAL.REST.COLOR,  "tc",  '  'I; 

iap_part.typelcal_ptr->d,  ipcharl; 

viprintf 12,  scr.line,  52,  CAl.REST.COLOR+INT,  "tc\  pcharl; 
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if (strcip(ca!jtr->fBc_ptr,  UNLOAD)  ==  0)1 

viprintf 12,  scr_line,  19,  CAL_FSC_COLOR.  'W,   '    "): 
Tiprintf (2,  scr.line.  21,  CAL~REST_COLOR,  "*s",  "nach  "); 
Tiprintf  12.  scr.line,  29,  CAL.REST.COLORtlNT,  "«d",  cal  ptr->a); 
viprintf [2,  scr.line,  30,  CAL.REST.COLOR.  "ts",  "  in  dept  ■); 
viprintf (2,  scr.line,  39,  Ul.IlJI.COUltHI,  "»d",  cal_ptr->bl; 

i£lstrcip(cal.ptr->fnc_ptr,  HOVE)  ==  0)1 

viprint£l2.  scr.line,  17,  CAL.FNC  COLOR,  "lis",  "     "); 
viprintf  12,  scr.line,  21,  CAL.REST.COLOR,  "*s\  "part  type  "I; 
if(cal_ptr->a  >  0)1 

viprintf (2,  scr.line.  3),  CAL  REST  COLOR+INT,  "*ld",  cal  ptr->il; 
else! 

viprintf (3,  scr  line,  31,  CAL  REST  COLOR,  "»c",  '  '): 
I 

»apjart_type(cal_ptr-)b,  tpchar): 
viprintf (2.  scr.line,  35,  CAL.REST.COLOR+INT,  "»c",  pcbarl; 
viprintf!!,  scr.line,  36,  CAL.REST.COLOR.  "ts\  "  fron  dept  "); 
viprintf (2,  scr.iine,  47,  CAL.REST.COLOR+INT,  "<ld",  :alptr-)c); 
viprintf (2,  scr.line,  41,  CAL.REST.COLOR,  "*s",  "  in  transfer  batch  size 
viprintf 12,  scr.line,  72,  CAL.REST.COLOR+INT,  "td\  cal  ptr->dl; 
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/'  Function  to  display  the  last  line  in  the  calendar  list  '/ 
void  disp.iast.lineiscr.line) 
int  scr  line; 
I 

viprintf  12,  scr.line,  0,  CAL.NOD.COLOR,  "*c  ",  last  line-)modifier); 

viprintf (2,  scr.line,  2,  CAL.TIKE.COLOR,  "*2d:*ld: %2d: *2d  ",\ 
last.line-Xeeks,  last_line-ldays,\ 
last_line-)hrs,  last  line-)iins); 

if(last_line->iins  <  10)  viprintf (2,  scr  line,  10,  CAL  TIKE  COLOR,  "tc" 

viprintf (2,  scr .line, 13,  CAL.FNC .COLOR,  **s",  last  line-)fnc  ptrl; 

display.detailslscr.line,  last.linel; 


/'  Function  to  display  any  line  in  the  calendar  list  at  specified  screen  line  «/ 

void  display.linelscr.line,  cal_p) 

int  scr  line; 

CALEHDAR  »calj; 

I 

viprintf (2,  scr.line,  0,  CAL.NOD.COLOR,  "%c  ",  cal  p-)iodifier); 

viprintf (2,  scr.line,  2,  CAL.TIKE.COLOR,  "«d:»ld:»2d:*2d  ",\ 
cal_p-)»eeks,  cal_p->days,\ 
cal.p->hrs,  cal.p-)«ins); 

iflcal_p-)iins  <  10)  viprintf (2,  scr  line,  10,  CAL  TIKE  COLOR,  "*c",  Tl; 

viprintf f2,  scr.line, 13,  CAL.FKC.COLOR,  "*s",  cal  p-)fnc  per); 

display.detailslscr.line,  calj); 

/«  Function  to  get  the  next  event  from  the  top  of  the  calendar  list  '/ 
void  get.next.eventl) 


CALBNDAR.C  Monday,  January  9,  1989 

CALENDAR  'event: 

event  =  cal_h; 

modifier  =  event-)«odi£ier: 

if (modifier  ==  DELETED)  I 

deleted  =  TRUE: 
i  else ! 

deleted  =  FALSE; 

event_time  =  event-niie: 
neek  =  event-Xeeks; 
day    =  event->days; 
nr     »  event->hrs; 
•in    =  event->iins: 
strcpylevent_type,  event->fnc_ptr); 
event_varl  •  e?ent-)a; 
event_var2  =  event-)b: 
event.var3  =  e»ent->c: 
event  var4  =  event-)d: 
I 

/'  Function  to  set  the  visual  calendar  limits  if  PgUp  is  pressed  '/ 

void  set  cal  pgupl) 

I 

int  linesjp,  nlines: 

viblanklJ,  23,  0,  23,  791; 

forllinesjp  =  0:  first_line-)prev  !=  NULL  ii  lines jip  <  20;\ 

first  line  =  first_line-)prev,  lines  upt+l; 
ifdines.up  ==011 

viprintf(2,  23,  0,  BJUCK+FJHOH+IIT,  'ts\  "You  are  seeing  the  top  of  calendar  lisfl- 
[else  I 

forlnlines  =  0,  lastjine  =  first_line:\ 

last_line-)nen  !=  HULL  ii  nlines  <  N_LIHES; \ 
last_line  =  last_line-)next,  nlines++l; 
display_calendar(l; 


/"  Function  to  set  the  visual  calendar  limits  if  PgDn  is  pressed  '/ 

void  set  caljgdnl) 

I 

int  lines_do»n,  nlines: 

viblankl2,  23,  0,  23,  791; 

forllines_do»n  =  0:  last_line-)next  !=  NULL  (S  lines.dom  <  20;\ 

lastjine  =  last  line-)nijt,  lines  do»n+ti; 
i£llines_do«n  ==  0)1 

viprintf(2,  23,  0,  BJLAa+FJROHN+INT.  'Is',  "You  are  seeing  the  last  entries  of  the  calendar  lisfl' 
I  else  I 

forlnlines  =  0,  first.line  =  last_line:\ 

£irst.line-)prev  !=  HULL  ii  nlines  <  IJ,IIK;\ 
first.line  =  first  line-)prev,  nlinest+l: 
display  calendar!) ; 
I 
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/"  Function  to  set  the  visual  calendar  iiiits  if  Dp  key  is  pressed  >/ 

void  set  cal  1  up  1 1 

I 

viblankU,  23,  0,  23,  791; 

i£[£irst_line->prev  ==  HULL)  ( 

viprintf (2,  23,  0,  BJIACR+F.BMIWHT.  '*!",  'You  are  seeing  the  top  line  in  the  calendar  list")- 
else 

firstjine  =  firstjine->prev; 

lastjine  =  last.line-)prev; 

vicopy(2,  SCILJOU,  0,  211; 

display  linelO.  first  line); 
I 
caljser  =  £irst_line; 

/'  Function  to  set  the  visual  calendar  Iiiits  if  Down  key  is  pressed  '/ 

void  set  cal  1  don  (I 

f 

viblank(2,  23,  0,  23,  791; 

if (last_line-)next  ==  NULL) I 

viprintf(2,  23,  0,  BJUCWJBOH+IIT,  "Is",  'You  are  seeing  the  last  line  in  the  calendar  list")- 

else 

lastjine  =  lastjine->next: 
firstjine  =  first  line-)next; 
vicopy(2,  ICU.W,"o,  21); 
displayjine(21,  lastjine); 

cal  user  =  last  line: 
I 

/'  Function  to  allocate  a  ne»  event  node  and  link  to  the  calendar  list  >/ 

void  schedule ievjype,  t,  varl,  var2,  var3,  varj) 

char  'evjype; 

unsigned  long  t; 

int  varl,  var2,  var3,  varj; 

I 

CALENDAR  "teip; 

int  i,  unkno«n_event; 

unho«n_event  =  1; 
if  It  )=  tiiejio«!l 

iflstrc»p(ev_type,  CLOCK  JICKI  ==  0)1 

teip  =  fCALEHDAR')iyjialloclsizeof(CALENDAR)); 
teip-)iodifier  =  CLOCK  JWDIFIER; 
teip-)fnc.ptr  =  CLOCK  JICK; 
unknown  event  =  0; 
I 
iflstrciplev.type,  PURCHASE!  ==  0)1 

teip  =  ICALENDAR')iy_ialloc(sizeo£(CALEJDAR)l; 
ifluser_specified)l 

teip->iodifier  =  USER  SPECIFIED; 
else 

teip-)iodifier  =  CLOCKJODIFIER; 
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I 

teip->fnc_ptr  =  PURCHASE; 

unknown  event  =  0: 
I 
iflstrciplev.type,  SETUP]  ==  Oil 

teip  =  ICALENDAR'!iy.«ailoclsizeoflCALEHDAR)); 

if (user_speci£ied) [ 

teip-)jo<iifier  =  USER  SPECIFIED: 

lelsel 

teip-)iodifier  =  SEC  MODIFIER: 

j 

tup-)fncjtr  =  SETUP: 
unknonn  event  =  0: 
I 
iflstrciplev.type,  LOAD}  «  Oil 

teip  =  (CALENDAR«)my_malloc (sizeof (CALENDAR) ) : 
teip-)iodifier  =  REG.KODIFIER: 
teip->£nc.ptr  =  LOAD: 
unknonn  event  =  0: 
I 
iflstrciplev.type,  UNLOAD)  ==  0)1 

teip  =  ICALENDAR'liF.ialloclsizeoflCALENDAR)); 
teip->iodi£ier  =  UNLOAD  NODIFIER; 
teip->fnc_ptr  =  UNLOAD: 
unknown  event  •  0: 
I 
iflstrciplev.type,  HOVE)  ==  Oil 

teip  =  (CALENDAR'liy.ialioclsizeoflCALENDARI); 
Ceap->iodifier  »  REC_NODIFIER; 
teip-)fnc_ptr  =  KOTeT 
unkno»n  event  =  0: 
I 

iflunkno»n_eventl  return: 
teip->tiie  =  t: 

tiie_to_string(teip->tiie,  teip) : 
teip-)a  =  varl; 
teip-)b  =  var2; 
teip-)c  =  var3: 
teip-)d  =  var4; 
forlcal_teip=cal_h;\ 

cal_teip->next  !=  NULL  U  teip-niie  >=  cal_teip->next->tiie;\ 
cal_teip=cal_te«p-)nei!t); 
iflcal.teip  ==  cal_h)l 

if(cal_h->die  )  teip-)ti«e)l 
cal_teip-)prev  =  teip: 
teip->next  =  cal.teip; 
teip->prev  =  NULL; 
cal.q  =  cal.h  =  cal.teip  =  teip; 
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teip-)next  =  cal_teip-)next: 
teip->prev  =  cal_teip: 
cal_teip->next-)prev  =  teip; 
cal_teip->next  =  teip; 
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iflcal.teip  ==  cal_t)l 

teip-)prev  =  cal.teip; 
cal_teip->next  =  temp: 
teip->next  =  WLL; 
cal_t  =  top; 
! else  f 

teip->next  =  cal_temp->next; 
teip->prev  =  cal_teip; 
cal_teip->next->prev  =  te»p; 
cal  teip->next  =  teip; 
I 
I 
£or(cal_teip  =  firstjine,  i«0;\ 

(cal_te»p  |a  teip)  ii  (cal.teip  !«  last_line);\ 
cal_teip  =  cal_teip->next,  !♦♦); 
iflcal_te»p  -  teip) I 

iflfinaljine  (  N.LINESII 

final  line**; 
lelse! 

last  line  =  last  line->orev: 
I 

vicopy  12,  SCILJOH,  i,  Einaljine); 
display  lined,  teip); 
I 

ifllfinaljine  <  NJINES)  ii  [teip  ==  cal  till 
final_line*t; 

display_linelfinal_line,  temp) ; 
last  line  =  last  line->next; 
I 
teip  =  NULL; 


/"  Function  to  schedule  a  ne»  setup  event  if  tie  user  requests  for  one  "/ 

void  change  I ev_type,  varl,  var2,  varj,  varl) 

char  'ev_type; 

int  varl,  var2,  varl,  var4; 

[ 

CALENDAR  'teip: 

DEPT  Help  d; 

IfACHINE  'teip  i; 

PARTJNFO  'teipji; 

unsigned  long  int  t; 

int  »aste_setup; 

int  prevjtype,  prev_repeat,  i; 

int  n_pre; 

iflstrciplev_type,  SETUP)  ==  0)1 
»aste_setup  =  FALSE; 

forlteip.d  ■  deptj;  teip.d  !=  NULL  ii  teip_d-)dept_no  !=  var2;  teip  d  =  teip  d-)next); 
forlteip.i  =  teip.d->iach;  teip.i  !=  NULL  (i  teip  i->iach_no  l«  varU  teip  i  =  teip  i-Hatl" 
prevjtype  =  teip_i-)setup.for; 
prev_repeat  =  teip_i->repeat; 
if(teip_i-)istate  «  111 
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»aste_setup  =  TRUE: 
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i£l»aste_setupl [ 

forlteip  ■  cal.q;  i temp  !  =  NULL)  SS  !llstrciplteip->fnc_ptr,  LOAD)  ==  01  Si  (teip-)d  ==  prev  ptypel  SS\ 

(teip-)c  -  prev  repeat) ) :  temp  =  teip->next); 
iflteip  !=  HULL) I 

teip->iodifier  =  DELETED; 
t  =  tile  now+ll; 
I 
else 

forlteip  =  cal.q;  I  temp  !=  HULL)  Si  I  llstrciplteip->fnc_ptr,  LOAD)  ==  0)  Si  (teip-)d  ==  prev  ptypel  SS\ 

lteip->c  ==  prev  repeat));  teip  =  teip-Jnext): 
iflteip  1=  NULL) [ 

teip->iodifier  =  DELETED: 
I 
update_iodifierltei.pl; 
forlteip  =  calj;  (temp  !=  NOLL)  SS  ! I lstrciplteip-)fncjtr,  LOAD)  ==  01  SS  lteip-)a  ==  varll  SS\ 

!teip->b  ==  var2)l;  teip  =  te«p-)neit): 
iflteip  "  NOLL) I 

forlteip  =  cal_q;  I teip  1=  HULL)  Si\ 

lllstrcipiteip-)fnc.ptr,  SETOP)  ==  0)  SS  lte«p->a  -  varl)  SS\ 
lteip->b  «  var2));  teip  =  teip-Jnext); 
iflteip  ==  NOLL)  I 

ifllprocessingll 

t  =  tiie  non+lL: 
I  else! 

forlteip  =  cal_q;  I teip  !=  NULL)  SS\ 

!llstrciplteip-)fnc.ptr,  ONLOAD)  ==  01  SS  (teip-)a  ==  varl)  SS\ 
lteip->b  ==  var2)l:  teip  =  teip->nextl; 
t  =  teip-)tiie; 
I 
else 

teip-dodifier  -  DELETED; 
t  =  tiie  noi+U; 
I 
else 

teip-)iodifier  =  DELETED; 
t  =  teip-Hiie; 
I 
I 

update_iodifierlteip); 
user_specified  =  TRUE; 
scbedulelSETOP,  t,  varl,  var2,  var3,  var4l; 
user.specified  =  FALSE; 
processing  =  PALSE; 
I 
iflstrciplev_type,  LOAD)  ==  0)1 

forlteip _d  =  dept.b:  teipj  !=  NOLL  SS  teip_d->dept  no  !=  var2;  teip  d  =  teip  d->nextl; 

fori  teipji  =  teipJ-)part_info;  teipji  1=  NOLL  SS  !|teipji->pt.pe~«  varl  SS  teip  pi-)repeat  ==  var3);\ 

teipji  =  teipji->next); 
if  (teipji  ==  NOLL)  print_errorpl); 
njre  =  niachjrocjtypelteip_d,  var3,  varCI; 
iflteip.pi-)pre  )=  njrell 

scbeduleltOAD,  tiie  noitll,  varl,  var2,  var3,  var4|- 
I  else  I 
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Tiprintf [pageno.  23,  25,  IJLlCI+F.BIOmtlll,  "»s",  "Not  enough  parts  in  the  pre  area"); 


I 
I 


"  Function  to  update  the  modifier  in  the  calendar  »indo»  •/ 
void  update_iodifier!teipl 
CALENDAR  'temp; 
I 
int  i; 

forli=0,  caljser  =  first  Jine;\ 

caljser  !•  teip  si  caljser  !=  last_line:  caljser  =  cal  user->next,  in) 
iflcaljser  ==  teipil 

display  lined,  tempi ; 

I 


/'  Function  to  delete  the  processed  event  fro«  the  calendar  ■/ 

void  del  event  froi_cal(l 

I 

CALENDAR  'event: 

event  =  calj; 
calj  =  event-lnext: 
calj  =  event-)next; 
cal_h-)prev  =  NULL: 
if(cal_teip  ==  event) I 

cal  teip  =  event-inext: 
I 
iflcaljser  ==  event)  I 

cal  user  =  event->next; 
I 
iflfirstjine  ==  event)  I 

first_line  =  first  Jine->next: 

vicopy(2,  SCRLJ7,  0,  finaljine); 

viblank(2,  finaljine,  0,  finaljine,  791; 

ifllfinaljine  ==  NJJNESISSIlastJine->next  !=  NULLDI 
lastjine  =  lastjine->next; 
dispjastjinelfinal  Jine) ; 


lelsel 


final  line- 


I 

freeleveitl 


/'  Function  to  dispose  calendar  before  termination  of  the  simulation  '/ 

void  dispose  calendar!) 

I 

CALENDAR  Help; 

forltemp  =  calj->next:  temp-)next  !■  NDLL;  temp  =  temp->next)l 
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free(tetp-)orev); 
I 

free(teip->prevl: 
freeltenp); 
teip  =  calj  =  cal_t  =  cal_q  =  caljser  =  cal_teip  ■  HULL: 

/'  Function  to  edit  the  calendar  «/ 
void  edit  calendar!) 
I 
int  k; 

draw  «enu(7); 
whilellll 

iflkUitllll 

k  ■  getkeyl); 
switch  Ik) I 

case  'd': 
case  T: 
case  |_UIJ! 

delete_event(); 
break: 
case  'a': 
case  'A': 
case  KJUiTi: 

userjchedulel); 
break; 
case  JJSC: 

drwjmi(i): 
return; 
default: 

break; 


/■  Interface  for  user  scheduled  events  '/ 

void  user  scheduled 

[ 

char  ch; 

int  k: 

draw  lenullOl; 
whilellll 

iflkbhitllll 

k  =  getkeyfl; 
switch!*) I 

case  IJSC: 

iflpageno  ==  0)  I 

dra»_aenu(lll 

iflpageno  ==  21 1 

draw  null); 
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return: 
break; 

rase 

'p': 

rase 

.p.. 

rase 

I.UIP: 

user jurchasel) 

break: 

rase 

's': 

rase 

'!': 

:3se 

K_ALTS: 

userjetupl); 

break: 

rase 

'!': 

rase 

'1'! 

rase 

tJttTL: 

userjoadll; 

break; 

rase 

'i': 

rase 

'«'; 

rase 

KJLIH: 

user_«ove|l; 

break; 

defau 

It: 

break: 

/«  Function  to  lark  an  event  as  deleted  if  tie  user  requests  '/ 
void  delete  eventl) 
I 
int  k,  scrjine; 

dra»_ienul!l; 
oljuet  =  first_line: 
scrjine  =  0: 

»iile(caljser-)iodifier  ==  CLOCK  JUMPIER)  I 

if  Iter  Jim  <  final  JinelF 

scrjinett; 

cal  user  =  cal  user-)next; 
else! 

set_cal  1  doinl); 


I 

vicngatt(2,  scr  line,  0,  80,  BUM; 

rtiledll 

lflUUtllll 

k  ■  getkeyll; 
siitcllkll 

case  K_PGUP: 

viblank(2,  23,  0,  23,  791; 
viclgattl2,  scrjine,  0,  80,  BUM: 
set_cal_pgup(l; 
scrjine  =  0; 
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caljiser  =  firstjine: 

»hile I (caI_user-7»odif ier  "  CL0CK_N0DIFIER)  Si  (eal_user->prev  i=  NOLLIII 

set_cal  1  upl); 
I 

ifl(cal_user-)prev  ==  HULL)  Si  (cal  user->modifier  ==  CLOCK  MODIFIES) )  I 
viblank(2,  23,  0,  23,  79): 
viprintfl2,  23,  15,  BJMCItFJSOIIHII,  "»s",\ 
"No  >ore  deletable  entries  above  this"); 
»nilelcal_user->nodifier  ==  CLOCK_ltODIFIER)  I 
iflscrjine  <  final  JineM 
scrjine+t; 

cal  user  =  cal  user->next; 
I  else  I 

set_cal  1  down) ) : 

I 

vichgatt (2.  scrjine,  0,  JO,  BLNK); 
break; 
case  JJGDH: 

viblank!2,  23,  0,  23,  79); 
vicbgattl2,  scrjine,  0,  80,  BIM); 
set_cal_pgdnll; 
scr_line  =  final_line: 
caljser  =  lastjine; 

while! (cal_user->modifier  ==  CLOCKJODIFIBR)  Si  (cal  «ser-)next  !«  NDLLDI 
iflscrjine  <  finaljinell 
scrjinett; 

cal  user  =  cal  user->next; 
I  else  I 

set  cal  1  donnll; 


ifl(cal_user-)next  ==  NULLI  ii  leal  user->«odifier  ==  CLOCK  MODIFIER)  I 
viblank(2,  23,  0,  23,  79); 
vipriatf (2,  23,  IS,  IJUCM.UOBMIt,  "*s",\ 
'No  lore  deletable  entries  below  this") ; 
whilelcal_user->iodifier  ==  CLOCK_MODIFIER)  I 
iflscrjine  >  Oil 
scrjine--: 

cal  user  =  cal  user-)prev: 
I  else  I 

set  cal  1  upl); 
I 


vichgatt(2,  scrjine,  0,  80,  BLNKI; 
break; 
case  F.JP: 

viblank(2,  23,  0,  23,  791; 
iflscrjine  >  0)1 

vichgattl2,  scrjine,  0,  80,  BLNK); 

scrjine-; 

caljiser  =  cal_user->prev; 

»hilellcal_user->nodifier  ==  CLOCK  JIODIFIBR)  ii  lcal_user->prev  !=  NOLL)) 
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else: 


iflscrjine  )  0)1 
scr_line — ; 

cal  user  =  cal  user->prev: 
else! 

set  cal  1  upl); 
I 
I 

iff  leal jser-)prev  ==  NULL)  ii  (cal  oser-)iodifier  ==  CLOCK  MODIFIER) ) ( 
viblankU,  23,  0,  23,  79); 
viprintf (2,  23,  15.  B.iUCWJSOHtlll,  "*s\\ 
'No  lore  deletable  entries  above  this"); 
■hile lcil_user->iodif ier  «  CLOCR.KODIFIERII 
iflscrjine  <  finaljinell 
scrjinett; 

cal_user  =  caljiser->next: 
I  else [ 

set  cal  1  dotnl); 
I 
1 
I 
vichgatt(2,  scrjine,  0,  80,  BLNK); 

vichgatt[2,  scrjine,  0,  !0,  BLNK) ; 

set_calj_up(); 

»hiIellcal~jiser->«odifier  ==  CLOCKJODIFIERI  Si  (caljser-)prev  !=  HULL) )  f 

set  cal  1  upl); 
I 

ifllcaljser-)prev  ==  HULL)  ii  leal  user-Hodifier  ==  CLOCK  MODIFIER)) ( 
viblankl2,  23,  0,  23,  79); 
viprintf [2,  23,  15,  B_BLACS+F_BROM!T+INT,  '*j\\ 
"do  lore  deletable  entries  above  this" ) ; 
«bilelcai_user->iodifier  ==  CLOCK_«ODIFIER) [ 
iflscrjine  <  final  Jineli" 
scrjinett; 

cal  user  =  cal  user->next: 
lelsel 

set  cal  1  donnll; 
I 
I 
I 

vichgatt(2,  scr  line,  0,  80,  BLKK); 
I 

break; 
case  KJOSH: 

viblankl2,  23,  0,  23,  79); 
iflscrjine  (  finaljinell 

vichgattl2,  scrjine,  0,  80,  BLNK); 
scrjinett; 

caljser  =  cal_user-)neit; 

•hilellcaljser-Uodifier  ==  CLOCK  .MODIFIER)  Si  leal  user->next  !=  MULL))  [ 
iflscrjine  <  finaljinell 
scrjinett; 

caljiser  =  caljser->next; 
lelsel 

set_cal  1  donnll; 
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! else  I 


if(lcaljiser->neit  ==  HOLD  ii  (cal  user->nodifier  ==  CLOCK  KODIPIESIII 
viblank [2,  23,  0,  23,  791: 
viprintf (2.  23,  15,  B_BLACK+F_BROWM+INT.  "\s',\ 
"do  lore  deletable  entries  belo»  this"); 
while(caljser->»odifier  ==  CL0CK_H0OIFIB8 1 1 
ifiscr_line  )  01! 
scr_line--: 

cal  user  =  cal  user->orev; 
lelsel 

set  cal  1  gpll; 
I 
I 
I 
vichgatt(2,  scr.line,  0,  JO,  BLKI): 

vichgact (2,  scr.line,  0,  10,  BLNK) : 

set_cal_l_do»n(l; 

while  [|cal_user->modi£ier  »  CLOCKJfODIPIER)  ii  (cal_user->next  !»  HUH  I 

set  cal  1  dom(); 
I 

ifl(cal_user->next  ==  HULL)  ii  (cal  user->iodifier  ==  CLOCK  MODIFIER) ) [ 
viblanki2,  23,  0,  23,  79); 
viprintf (2,  23,  15,  BJUCI+PJIon+IIT,  "%s",\ 
"Jo  lore  deletable  entries  belon  this"); 
ihilelcaljiser-Hodifier  ==  CLOCIJIODIPIER1I 
iflscrjine  >  0)1 
scr_line— ; 

cal  user  =  cal  user-)prev; 
else 

set  cal  1  upll; 
I 


vichgatt  12,  scr_line,  0,  SO,  BUI); 

I 

break; 
case  K_ESC: 

viblank(2,  23,  0,  23,  79); 

vichgatt (2,  scr.line,  0,  JO,  BLIII; 

drai_ienu!7l; 

return; 
case  I_DEL: 

cal_user-)iodifier  =  DELETED; 

display_line(scr_line,  caljser) : 

vichgatt(2,  scr.line,  0,  10,  lini; 

break; 
case  K_I8S; 

iflstrcip(cal_user->fncjtr,  SETUPI  ==  Oil 
viblank!2,  23,  0,  23,  79); 
viprintf [2,  23,  0,  HSG_COLOR.  'W,  "Insert  setup  through  AddEyenfl; 

lelsel 

caljiser->modifier  =  REGJIODIPIER; 
display_linelscr_line,  cal_user) ; 
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vichgatt(2.  scr  line,  0,  80,  BUI): 
I 

break: 
default: 

break: 
I 
I 
I 
viblanklJ,  23,  0,  23,791; 
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♦include  (stdio.h) 
f include  "user\sii.h* 
linclude  "user\define.h" 
iinclude  "user\vi.h" 

int  changejarslvoid): 

,'*  Function  to  change  the  variables  on  the  zoon  »indo»  '/ 

int  change  varsl) 

I 

nr.nm  'ptr; 

VkR.LOCiTIOI  'loc; 
int  lin,  lax: 

loc  =  var_location: 
ptr  =  intjirite; 
if(tiie_no»  !=  ODI 

loc++;  ptr++r 

loc++:  ptr++; 
I 
while («loc->»ar)  [ 

vinlankll,  23,  0,  23,  79); 

viprintfll,  23,  0,  SS5.C0L0R,  "*s',  "Current  value  of") ; 

viprintfll,  23,  11,  »SG_COLOR,  "ts\  loc-)varl; 

viprintfll,  23,  35,  BJMHFJHITEtlNT,  "*4d",  "ptr->valuel; 

viprintfll,  23,  42,  KSG_C0L0R ,  "*s",  "Enter  new  value:-}; 

vichgattll,  loc-)roi,  lococol,  loc->n_cols,  BUT); 

lin  =  1; 

■az  =  999; 

i£llstrciplloc-)var,  "days_perjieek"l)  "Oil 
■in  »  1; 
max  =  7; 

I 

ifl(strcip(loc-)var,  "hrs_per_day"ll  ==  Oil 
lis  =  1; 
•ax  =  2): 

ifllstrc«p|loc-)var,  "otherj)p_expense-)l  ==  Oil 

•in  =  0; 

■az  =  9999; 
I 

'ptr-)value  =  iprouptll,  23,  59,  loc-)n_cols,  'ptr-)value,  lit,  lail; 
vichgattll,  loc-)ro«,  loc-)col,  loc->n_cols,  BLUR); 
ifllstrciplloc->var,  "daysjerjfeek'lf ==  Oil 

viprintfll,  loc-)ro»,  ioc-)col,  B  SED+F  WHITE+IHT,  "»H\  'ptr->value|- 
leliel 

if(llst:uipiloc->var,  "hrsjer_day"ll  ==  01  II  (Istrciplloc-)var,  'lin  inv"l  ==  0)111 

viprintfll,  loc-)row,  loc-)col,  B  RED+F  IIITE+III,  "*2d",  >ptr:>value); 
I  else  I 

ifllstrciplloc->var,  "other_op_expense")l  -  0)1 

viprintfll,  loc->roi,  foc->col,  B  RED+7  IHIIMII,  •\U",   'ptr->value|- 
I  else  I 

viprintfll,  loc-)roi,  loc->col,  B_RED+F_HHITE+IHT,  "*3d",  'ptr-)valuel; 
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loctt: 

ptttt; 
I 

position.cursorll,  23,  01 
hidecursorl)  ; 
violankll,  23,  0.  23,  191 


PR8EZE.C  Monday.  January  9,  1989 


♦include  (stdio.h) 

♦include  "user\sii.h" 

♦include  "userWi.h" 

♦include  "user\std.h- 

/'  Function  to  freeze  the  simulation  "/ 

int  freeze! I 

I 

int  row,  col; 

DEFT  'teip  d; 

MACHINE  'teip  i; 

Mltjim  'teipji; 

freezed  =  TRUE: 
imjHUlS); 

forlteipj  =  dept_h;  teip_d  !■  NOLL;  teipji  =  teip_d->nextll 

for(teip_i  =  te«p_d->iach:  teipj  !•  NULL;  te«p_i  =  teip  i-)next)l 
ifl(teip_i->istate  ==  ill!  iteip_i->«state  ==  2) II 

vichgattIO,  teipj-irow+1,  teip_i->col+l,  1,  BLNK); 

I 

forlteipji  =  te»p_d-)part_info:  teipji  !=  NULL;  teipji  =  teipji-)nextl  [ 
row  =  teipji-lroi; 
col  =  teipji->col; 
viprintflO,  roi,  col+4,  STIHE_COLOR,  "*3d",\ 

stiie|teipji->repeatj[teipji->dept  no-l][teipji-)ptype-l]): 
viprintflO,  roi,  col+12,  MTIME_COLOR,  "*3d",\ 

itiie[teipji->repeat]Iteipji->deptjo-l](teipji->ptype-l]); 

I 

stop_zooi_dept(l; 


/'  Function  to  resuie  the  siiulation  "/ 

int  unfreezel) 

[ 

int  roi,  col; 

DEFT  "tenp_d; 

HACHIHE  '  teipj; 

PARTJNFO  'teipji; 

freezed  =  FALSE; 

draijenu!6); 

forlteipj  =  deptj;  teipj  !=  NULL;  teip_d  •  teipj-Jnextl  I 

forlteipj  =  teip_d->iach;  teip.i  !=  NULlfteip  ■  =  teip  i->nextll 
i£l(teipj->istate  ==  lilllteipj-Jistate  ==  2)lT 

vichgattIO,  teipj->roi+l,  teip_i-)col*l,  1,  BUI); 

I 

forlteipji  »  teipjHpart.info:  teipji  |>  NULL;  teipji  =  teipji-)next) 
ro»  =  teipji->roi: 
col  =  teipji-)col; 

viprintflO,  roi,  col*),  STIKE  COLOR,  '<s\  "      "); 
viprintflO,  roi,  col+12,  MIHCOLOl,  '*s\  "      "); 
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I 

start_zooi_deptl); 


/'  Function  to  stop  the  siiulation  "/ 

int  stop  sill) 

I 

DKPT  «teip  d; 

nam  'teipj; 

forlteipj  =  dept_h:  teip_d  !=  TOIL;  teipj  =  teip_d->nextll 

forlteip_i  =  teipj-liach;  teip_i  !=  NULL:  teip_i  =  teip_i->nextl I 
if((teipjn-)istate  ==  ill! (teip_i-)istate  ==  21)1 

ifflvichkattlO,  teip_i-)roi*l,  teip_i-)col*l)  i  BUI)  ==  BLNKM 
vichgattIO,  teipjn-)ro»+l,  teip_i->col+l,  i,  BUI); 


I 

stop  zoo»  deptll: 
I 

/•  Function  to  start  the  siiulation  '/ 

int  start  sill) 

[ 

DEPI  'teip  d; 

KiCBINE  'teip.i; 

forlteip.d  =  deptj;  teipj  !»  NOLL;  teipj  =  teip_d->next)l 

forlteip_i  =  teip_d->iach:  teip_«  !=  NULL;  te«p_i  =  teip  i->next)l 
i£llteip.i-)istate  ==  1M ! (teip_i->istate  ==  2)1? 

ifllvichkattlO,  teip_i->roitl,  teip_i-)col*l)  [  BLNK)  !«  BLIII [ 

vichgattIO,  teip  i-)ro»+l,  teip  i->col+l,  1,  BUI); 
I 
I 
I 
I 
start_zooi_deptl); 
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(include  (stdio.h) 
(include  "usensii.h" 
(include  "userWi.h" 

/"  Function  to  initialize  the  statistics  structure  '/ 

int  init  statu 

I 

stats  =  ISTATS'liy.ialloclsireoflSTATSI); 

stats->fin_row  =  5; 

stats->fin_col  =  27; 

stats->start_cash  =  cash; 

stats->cashjow  =  cash; 

stats->sales_revenue  =  OL; 

stats->raw_iiat_exp  =  0; 

stats->«at_hand_exp  =  0; 

stats->other_op_exp  =  0; 

stats->net_cash_£low  =  0; 

dra»_stat  screen  1 1 ; 


/'  Function  to  paint  the  statistics  window  '/ 

int  draw  stat  screend 

[ 

int  i,  row,  col; 

char  pcnar; 

DEFT  'teip  i; 

MACHIHE  'teipji; 

vicls(3l; 

?iprint£(3,  0,  33,  TITLE.COLOR,  "*s",  "STATISTICS" I ; 

viprintfU,  0,  5,  S.TEXT.COLOR,  "»s",  "WEEK:    D1Y: 

viprintf(3,  0,  63,  S.TEXT.COLOR,  "Is-,  "I1JB;*I; 
for(row=2;  row  <  11;  rowttll 

for(col=5;  col  <  36;  col+tll 

viputc(3,  row,  col,  STAT  FIN  COLOR,  ' 
I  "  " 

I 

for(row=l);  row  <  n_ptypes+3+14;  row**) I 
forlcol=5;  col  <  36;  colttll 

viputc[3,  row,  col,  SHI  SIS  COLOR,  ' 


forlrow=2;  row  <  njtypes*3*H;  ro»++l  ( 

£orlcol=36;  col  <  74;  colttll 

viputcll,  row,  col,  STAT  ACT  COLOR,  ■  * ) : 

I  "  " 

I 

vipriatfO,  2,12,  STAT.FIN_COLOR-F  IHITEtF  BROIN,  'ts",  "FINANCIAL  REPORT' 
viprintf(3,  (,13,  STAT.FIN  COLOR,  'ts\  "Starting  Cash'); 
viprintf(3,  5,11,  STAT.FIN  COLOR,  "*s",  "Cash  low" I; 
viprintfU,  7,10,  STAT.FIN  COLOR,  "ts",  "Raw  lit  Expenses"!; 
viprintflJ,  8,  5,  STAT.FIN  COLOR,  "»s",  "Nat  Handling  Expenses')- 
viprint£(3,  9,  9,  STAT.FIN  COLOR,  "*s\  "Other  Op  Expenses'); 
viprintfO.il,  8,  STAT.FIN  COLOR,  "W,   'Revenue  from  Sales"); 
viprintf (3,12,13,  STAT.FIN  COLOR,  "*s",  "Net  Cash  Flow'); 
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viprintf!3,14,14,  STATJLS.COLOR-FJHIIEtFJROKK.  "*s",  "SALES  REPORT"  I ; 
viprintf (3,  2,47,  STATJCT_COLOR-F  KHIIEtFJROlI,  '%»•,  "ACTIVATIOH  REPORT"!; 
viprintf (3,  4,16,  STATJCT.COLOR,  "ts",  "Hachl    Prod*    Setup*    Idle*"): 
for (i=0,  ro»=16:  i  (  njtjpes:  in,  ro»HI 

iap_part_typeli*l,  Spcharl; 

viprintf (3,  ro»,  13,  STATJLS_COLOR,  "Product  *c  Sold:",  pcharl; 

forlte»p_d=deptJ,  ro»=5:  teiip_d  !=  NOLL:  te«p_d  =  teip_d->nextl I 

viprintf (3.  ro»,  37,  STATJCT.COLOR.  "Dept  *ld\  teipjHdept.nol: 
forltesp_i=te«p_d->r«ach;  teipj  !=  NULL:  teup  ■  =  teip  i->next,  roit+ll 
viprintf  13,  ro»,  48,  STATJCT.COLOR,  7*ld",  teip_i->«ach_no); 


iat  calc_cash  iloii) 
i 

cash  -=  OTJERJPJXPENSE; 
expense  ♦■  OTHEX_OP_EXPEHSE  r 

update  Jinance  II: 

stats->other_op_exp  ♦=  OTHER_OP_EXPENSE; 

stats-)cash_no«  —  OTHER _OP_EXPE»SE: 

scats->net_cashjlo»  =  stats->cash  no»  -  stats->start  cash; 

if (pageno  !=  3)1 

update_stat_clock(l; 

update_stat_prod_info(); 

update_act_report(l; 

pageno  =  3: 

set  pagelpagenol: 
I 

updatejtatjinanceil: 
viprintf [3,  22,  6,  MSG_C0LOR,\ 

"This  is  end  of  »eek  *d  statistics,     'P'  to  print  /  T  to  continue",  »eek  now-1) 

int  resetjinancel) 

cash  =  stats-)cash_no»: 
expense  =  OL; 

stats->start_cash  =  stats->cashjio»: 
stats-)cash_no»  =  cash; 
stats-)sales_revenue  =  OL; 
stats->ra»_iat_exp  =  0; 
stats-»atjand_exp  =  0; 
stats-)other_op_exp  =  0; 
stats-)net_cashJlo»  =  0; 
viblank(3,  22,  0,  22,  79}; 
updatejinancel); 
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♦include  (stdio.h) 
linclude  "userUeydefs.h" 
linclude  "user\sia.h" 
linclude  "user\std.h" 
(include  "userWi.h" 

int  zooilintl; 
int  get_dept_nolintl; 
int  set_zooi_scrlvoidl; 
int  set_act_windowlint); 
int  update_zooi_actlintl: 
int  stop_zooi_deptlvoidl: 
int  start_zooi_deptlvoid); 

/"  Function  to  zooi  the  specified  departient  '/ 
int  zooildeptjiol 
int  dept  no: 
I 

DEPT  'te»p_d; 

KACBINE  'teip  i; 

PART.INPO  'teipji; 

int  rot,  col: 

row  =  zooi_row; 

col  -  zooi_col: 

viblank(l,~2,  23,  II,  551; 

viprintfll,  row-2,  col-5,  TITLE .COLOR,  "*s  »ld\  "Departient",  dept  nol: 

for(teip_d  =  dept J;  teip_d-)dept_no  !=  deptjo:  teip_d  =  teipj-lnextl; 

Eor(teip_i  =  teip_d->iach:  teip.i  !=  NULL:  teip.i  =  teip  i->nextll 

viprintfll,  row,  col-1,  a_RED+F_«HITB+lirT.  "  «d~",  teip  i->iach  nol; 
viprintfll,  row+1,  col-3,  SACHINE.COLOR ,  "»s",  "  "T; 

viprintfll,  ro»tl.  col-3,  fl_BLUE+F_BROBI+IBT.  "tc\  '\xB3'l; 
viprintfll,  row+1 ,  col+3.  a_BLOE+F_BROWB+IHT,  "»c",  '\xB3'l; 
switch  lte»p.i->istatell 
case  0: 

iflteip_i->setup_£or  1=  OJJTILIZSDK 
iflteip_i->repeat  )  Oil 

viprintfll,  row+1,  col-2,  B_BLDE+F_C«!EB+IBT,  "tld",  teip_i->repeatl; 

viprintfll,  ron+1,  col-1,  HACHINE.COLOR,  "*c",  teip  i->setup  for  in  cuar): 

viprintfll,  row+1,  col+1,  KACBIBE  COLOR,  "tc\  IDtlf; 
I 

break; 
case  1: 

iflteip_i-)repeat  >  01 1 

viprintfll,  rottl,  col-2,  B.SLOE+F.GRBEJ+IJT,  "*ld",  teip_i-)repeat); 

viprintfll,  roi+1,  col-1,  NACHIJIE.COLOR,  "*c",  teip  i-)setup  for  in  chart; 
viprintfll,  row+1,  col+1,  KACHI8E.C0L0R+BIM,  "tc",~SETTIK  VPI:~ 
break; 
case  2: 

i£lteip_i-)repeat  >  Oil 

viprintfll,  row+1,  col-2,  BJLOB+F.OREEII+HT,  "Md",  teip_i->repeatl; 

viprintfll,  row+1,  col-1,  HACBUE.COLOR,  "*c",  teip.i-)setup.for_in.charl; 
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viprintfll,  row+1,  col+1.  MACHIHE_COLOR+BLHK.  "»c",  PROCESSING) 

break: 


ro»  -  row+2: 


row  =  zooi_ro»+l: 
col  -  zooi_col-13: 

fori  teipji  «  te«p_d->part_info:  teipji  !=  NULL;  teipji  =  teipji-)nextll 
iflteipji-Jrepeat  )  Oil 

viprintfll,  roi,  col-3,  B_BL1CK+F_GSEEH+IHT.  "U",  teipji->repeatl: 

viprintfll,  row,  col»2S,  i"  BLACE«F  GXEEIK-IRT,  "»d\  tup  pi->repeatl; 
I 

viprintfll.  ro«,  col-2,  B_BLACK+F_BROWH+INT.  "Ic",  teip_pi-)ptipe_in_char) : 
viprintfll,  roi,  col+29,  IJUUtf.UMI+rjT,  "lie",  teipji->ptype_in*_char): 
iflte«p_pi-)pre  )  OK 

viprintfll,  row,  col-1,  PRE  COLOR,  "  Hd  ",  teip  pi-lprel; 
I  else  I 

viprintfll.  row,  col-1,  PRE.COLOR,  "U",  "        "I; 
I 
iflteipji->post  )  Oil 

viprintfll,  row,  coH23,  POST  COLOR,  "  »3d  ",  teipji-)postl: 
I  else  I 

viprintfll,  row,  col+23,  POST  COLOR,  "*«',  "        "I; 
l 
viprintfll,  row,  col+4,  STIHE.COLOR,  "  *3d  ",\ 

stiie[teipji->repeatHteipji->dept  no-1] [temp  pi-)ptype-l]): 
viprintfll,  row.  col+11,  KTIHE.COLOR,  "  Hd  ",\ 

itiie(teipji->repeat]  [teip  ji->deptjo-l)  (teip  pi->ptype-l]l; 
row**; 

I 

set_act_windowlzooijeptl; 
updatejooi.actlzooijept); 
if (f reeled  1 1 

stop  zooi  deptll: 
I 


/'  Function  to  jet  the  departient  nuiber  if  P2  is  pressed  froi  zooi  window  "/ 
int  get_dept_no(old) 
int  old; 
I 

int  deptjo,  ok; 

char  ch; 

restore  cursor! ) ; 
viblankU,  23,  0,  23,  791; 

viprintfll,  23,  30,  HSC.COLOR,  "*s",  "Depauieot  lHi«r:"l; 
getjept: 

position  cursorll,  23,  (91; 

ok  '  FALSE; 

whilellokll 

ch  =  getchll; 
if (ch  (  '  'II 

donejnputll; 
returnloldl; 
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iflch  (  '1'  !!  ch  )  '9'1I 

ok  =  FALSE: 
lelsel 

o*  =  TRHK; 

I 

if (ok) I 

dept.no  •  ch  -  '0': 

ifldept.no  )  n_deptsl  I 

ok  =  FALSE: 
lelsel 

ok  =  TRUE: 
fputclch,  stderrl 


I 

■ione.inputll: 
returnldept  no): 
I 

/'  Function  to  set  the  initial  zooi  screen  '/ 

int  set  zooi  scrll 

[ 

DEFT  'teip  d: 

KACHINE  'teip.i: 

PART.IHFO  Heipji; 

RAH  'te«p_ra»; 

PRODUCT  'teipjrod: 

int  row,  col: 

char  pcnar: 

viprintfll,  1,  3,  S_TEXT_C0L0R,  "*s",  "HEER:    DAY: " I ; 
viprintf (1,  3,  5,  S.TEXT.COLOR,  "*s",  "TIKE:"); 
viprintfll,  1,  9,  CL0CK.C0L0R,  "ts",  "00") r 

viprintfll,  1,  18,  CLOCK.COLOR ,  "<s",  "0"); 

viprintfll,  3,  11,  CLOCK.COLOR,  "*s",  "00: 00" t : 

viprintfll,  6,  3,  S_TEXT_C0LOR,  "ts",  "Shop  irorks  for:'): 

viprintfll,  8,  3,  TITLE.COLOR,  "»s",  "hrs  per  day") ; 

viprintfll,  8,  17,  B_RED~+F.»HITE+IIIT,  "*2d",  hrs  per  dayl; 

viprintfll, 10,  3,  TITLE.COLOR,  "*s",  "days  per  week"!: 

viprintfll, 10,  18,  B.RELHF.IfHITEtlNT,  "tld",  aays_per.»eek): 

viprintfll,  3,  62,  TITLE_COL0R,  "*s",  "Kin  inventory")'; 

viprintfll,  3,  76,  SJED*PJIHITE+INT,  "  «d",  iin_invl; 

viprintfll,  5,  58,  TITLE.COLOR,  "»s",  "Purchase  lot  size"); 

viprintfll,  i,  76,  B.REDtFJHITE+IKT,  "*3d",  purchase  lot  sizel; 

viprintfll,  7,  61,  TITLE_COLOR,  "*s".  "Transfer  batch");  " 

viprintfll,  7,  76,  B.RED+FJHITE+INT,  "*3d",  transfer  batch); 

viprintfll,  9,  St,  TITLE.COLOR,  "*s",  "Sat  handling  cost"); 

viprintfll,  9,  76,  SJHHFJUITMlfT,  "*3d",  lat  handling  cost); 

viprintfll,  11,  60,  TITLE.COLOR,  "*s",  "leekly  expense");" 

viprintfll,  11,  75,  B_RED+F_WHITE+I!fT ,  "*ld",  other  op  expense): 

viprintfll,  13,  2,  S.TEXT.COLOR,  "*s",  "Rai  uteris!  cost"]; 

ro»  =  15; 

col  =  i; 

forlteip_ra»  =  ran.ut:  teip.ra*  !=  NULL:  teip.rai  =  teip_ra»->next,  roit+l 
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viprintfll,  ro»,  col,  TITLB.COLOR,  "P.Mld  -  ",  teip  raw->raw  lat  do); 

viprintfll,  row,  col+S.  B  BLACIC+F  CIU+IB,  "StM'.'teip  raw:>cost); 
I  " 

viprintfll,  13,  61,  S_TEXT_C0L0R,  "*5\  "Product  price"!: 
row  =  IS: 
col  =  66: 
£or(teip_prod  =  product:  tsipjrod  !«  MULL:  teip.prod  =  teip_prod->next,  row+t) 

iap_part_tjpeiteip_prod->prod_no,  Spchar): 

viprintfll,  row,  col,  TITLE.COLOR,  "*c  -",  pciirl; 

viprintfll,  roi,  col+4,  B.DLlCIiP.cni+IJI,  "SUd",  teip.prod->pricel; 

zoonlzooi.dept): 


int  set.act.windowldeptjo) 

int  dept  no: 

I 

DEPT  'teip  d: 

mCHIH  'teip.i; 

int  row,  col: 

for [row=15;  row  <  22;  roit+ll 

forlcol=23;  col  <  57;  col++ll 

viputcll,  roi,  col,  STAT  ACT  COLOR,  '  '); 

I 
I 

viprintfll,  15,  24,  B_BLUK+F_EROMN+INT,  "Department  %ld  -  Activation  Report",  dept  no) 
viprintfll,  16,  26,  mi.lCt.COHB,  'ts\  'Kachf     Prod*    Setup*    Idle*'): 
forlteip_d=dept_h;  teip_d->dept_no  1=  dept.no:  teip.d  =  teip_d->next); 
for (teip_i=teip_d- Hack,  ro»=17;  teip.i  !«  HOLD;  teip  1  =  teip  i->next,rowt+)| 

viprintfll,  row,  2),  STAT.ACT.COLOR.  'Mi',  teip_i->iach  no); 


/'  Function  to  update  Activation  Report  in  the  zoo«  window  "/ 
int  update.zoon_actldept.nol 
int  dept  no; 
I 

unsigned  long  int  total.tiie; 

unsigned  long  int  prod_ti«e,  setup.tine,  idle  tine: 

int  prod,  setup,  idle; 

int  row,  col; 

DEPT  'teip  d; 

UCIIH  'teip.i; 

row  =  17: 
Hi  =  35; 

for  I teip.d  ■  dept.n;  teip.d  1=  NULL  Si  teip.d-Hept.no  !=  dept.no;  teip  d  =  teip  d->nextl 
forlteip.i  =  teip_d->iacn;  teip.i  !  =  NULL;  teip.i  =  teip_i->next) I 
total.tiie  =  tite  now; 
if  (total.tiie  I  ■"mi 

setnp.tiie  =  teip.i-niie.setup; 
prod.tiie  =  teip_«->tiie_busy; 
iflteip.i-dstate  ==  111 

setup.tiie  *=  Itiie.now  -  teip.i-)state.change_tiiel; 
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I 

ifltejp_«->istate  "  2)  I 

piod_tiie  *-  (time  now  -  teip  »->state  change  tiiel: 

I 

setup  =  lint) ( ( (doublel setup_tine/ [double) total_tiae) «100L) ; 

prod  =  (intl ( [ (donble)prod_tise/ Idoublel total_tiMe) *100L) ; 

idle  =  100-lprod+setup); 

viprintfd,  roi,  col,  STAT.ACT.COMR,  "*3d\  prod); 

viprintfd.  ro«,  col*7,  STAT_XCT_C0L0R ,  "*3d",  setup); 

viprintfd,  roi,  eol+15.  STAT  ACT  COLOR,  "Wd",  idle) ; 
I 
roin; 


int  stop  zooi  deptl) 
[ 

DEPT  'teipjl; 

MACHINE  'teip.i; 

int  row,  col; 

row  =  zooi_rowtl: 

col  =  zooi_col+l; 

for(teip_d  =  dept_h;  teip_d  1=  HULL  U  teip_d-)dept_no  !  =  zooijept:  teip_d  =  teap  d->neitl: 

for(teip_i  =  teip_d->iach;  te«p_i  !»  HULL;  teip_i  =  teip_i->nextl I 

ifl(teip_i->istate  ==  1)"  II  lttip_i-)Mtate  ==  i)\  I 
vichgattd,  row,  col,  1,  B LHK I ; 

I 

row  ■  row»2: 


int  start_zooi  deptl ) 
I 

DEPT  "teipj; 

MACHINE  'teip.i; 

int  row,  col; 

row  =  :ooi_roitl: 

col  =  zooi_col*l; 

forlteip_d  =  deptj;  teip.d  !=  NULL  is  teip_d->dept_no  !=  zooi_dept;  teipj  =  teip  d-lnest) 

forlteip.i  =  teip_d->iach:  teipjn  1=  NULL;  teip  j  =  teip  i-)nextll 

ifllteip.i-)«tate  ==  1)  II  lteip.i-)istate  ==  Jl'll 
vichgattd,  row,  col,  1,  BLUR); 

I 

row  =  roi+2; 
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♦include  (stdio.h) 

♦include  (dos.M 

(include  <conio.h> 

(include  "user\bioslib.h" 

(include  "usenkeydefs.IT 

(include  "user\std.h" 

(include  "user\sii.h" 

(include  "user\vi .h" 

(define  SPACES 

(define  FORMFEED   '\xOC 

int  print_init (void) : 
int  print jcr lilt); 

/'  Function  to  initialize  the  printer  " 

int  print  initll 

I 

prt  initlOl; 
I 

/'  Function  to  duip  tie  screen  '/ 
int  printjcr (header] 
int  header: 
I 

char  buf  [80]; 

int  i,  print_abort,  k; 

char  ch; 

union  REGS  inregs,  outregs; 

print_abort  =  FALSE; 

if [ (header  (  01  !!  {header  )  311  returnlll; 
viblanklpageno,  23,  0,  23,  79); 
viprintflpageno,  23,  15,  KSG_C0LOR,  "ts",\ 

"Hake  sure  printer  is  on  and  press  a  key  to  continue"); 
ch  =  getchl); 

viblanklpageno,  23,  0,  23,  791; 

viprintflpageno,  23,  35,  KSS.COLOMLn,  "»s",  "Printing. .."I; 
for(i=0;  i  (  10;  i+*|| 
buffi]  =  '  '; 
I 

snitch  I  header  1 1 
case  0: 

sprintflbuf,  "*sts*s*stctc*c»c",  SPACES,  SPACES,  SPACES, \ 

■SUPSHOr,  '\n',  '\n',  'to',  '\0'|; 
break; 
case  1: 

sprintflbuf,  "%s*s*s*s*c*ctc»c",  SPACES,  SPACES,  SPACES, \ 

"ZOOH  REPORT",  '\n\  '\n',  '\n',  '\0'l; 
break: 
case  2: 

sprintflbuf,  "*s*s*s»s*c*c»c*c".  SPACES,  SPACES,  SPACES, \ 

"CALEHDAR  LISTING*.  '\n',  '\n',  '\n',  '\0'l; 
break: 
case  3: 
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sprintflbuf,  ■*s*s*s*s*c*c*c*c",  SPACES,  SPACES,  SPACES, \ 

■STATISTICS  REPORT",  'W ,   '\n',  '\n',  '\0'l: 
break: 
default: 

break: 

forli=0:  Mprint.abortl  il  i  (  10  H  buf [i]  !=  '\0';  i++|| 
ifllprtjrintlO,  buf [i] )  &  1]  !=  oil 
beepll: 

viblanklpageno,  23,  0,  23.  791; 
viprintflpageno,  23,  10,  KSG_COLOR ,  'W,\ 

"Printer  not  ready:  press  any  key  to  try  again  or  ESC  to  abort"): 
ch  =  getchll: 
iflcb  ==  JJSCII 

print  abort  =  TRIE: 
lelsel 

viblanklpageno,  23,  0,  23,  791; 

viprintflpageno,  23,  35,  8SG_COIOR+BL«T,  "is",  "Printing..."); 

I 

i£(!print.abort) I 

int!6IPRIHT_SCRN,  Sinregs,  Soutregs); 

prt  printIO,  FORMFEED! ; 
I 

viblanklpageno,  23,  0,  23,  791; 
return  1 01; 
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Printer  Port  ROB  BIOS  library 

.TEXT    segient  byte  public  'CODE'    :  Place  the  code  in  the  code  segient 
assuie  CS:_TEXT  :  Assuie  the  CS  register  points  to  it 

jrtjnitlportl 

Function:  Initialize  the  printer  port  specified.  Returns  the  port  status. 

Algorithm  Call  the  ROH  BIOS  printer  init  function;  int  175,  AB  =  1. 

public  jrtjnit     ;  Routine  is  available  to  other  nodules 

port  »  I  ;  offset  froi  BP  to  paraieter  port 

jrt.init  proc  near         :  NEAR  type  subroutine 

push  bp  :  Save  BP  register 

><"  cp.sp  :  Set  BP  to  SP;  easier  to  get  paraieters 

lov  dx.lbptport]  :  Set  DX  to  the  port  nuiber 


iov    ah,l 

:  Set  AH  to  1  linit  port  functionl 

int    17E 

:  Call  RON  BIOS  printer  port  interrupt 

bov    al.ah 

:  Return  status  in  AX 

xor   ah, ah 

;  Kith  high  byte  zero 

pop    bp 

;  Restore  the  BP  register 

ret 

:  Return  to  calling  prograi 

prtjnit  endp 

:  End  of  subroutine 

jrtjrint  Iport,  charl 

Function:  Print  the  character  char  on  port  port.  Return  the  port  status. 
Algorithm:  Call  the  ROB  BIOS  print  char  function:  int  17H,  AH  =  0. 
public  jrt.print     ;  Routine  is  available  to  other  lodules 


port  =  4 

:  Offset  froi  BP  to  paraieter  port 

char  =  6 

:  Offset  to  paraieter  char 

jrtjrint  proc  near 

;  NEAR  type  subroutine 

push   bp 

:  Save  BP  register 

iov   bp,sp 

;  Set  BP  to  SP:  easier  to  get  paraieters 

iov    dx,[bptport) 

;  Set  DX  to  the  port  nuiber 

iov   il,  jbp+char] 

:  Set  AL  to  the  character 

iov   ah.O 

:  Set  AH  to  0  (print  char  function) 

int    175 

:  Call  RON  BIOS  printer  interrupt 

iov    al.ah 

:  Return  the  status  in  AX 

nor   ah, ah 

.  nich  high  byte  zero 

pop   bp 

;  Restore  the  BP  register 

ret 

;  Return  to  calling  prograi 

jrtjrint  endp 

;  Bnd  of  subroutine 

jrtjtatlportl 

Function:  Return  the  status  of  the  printer  port  specified. 
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■   Algorithm:  Call  tie  ROK  BIOS  printer  status  function;  int  17H,  AH  =  2. 

public  jrtjtat  :  Routine  is  available  to  other  nodules 

port  =  4  :  Offset  from  BP  to  parameter  port 


jrt_sta 

:  proc  near 

:  NEAR  type  subroutine 

push 

bp 

;  Save  BP  register 

■Ol 

bp.sp 

:  Set  BP  to  SP;  easier  to  get  parameters 

101 

dx,[bp+port] 

:  Set  DX  to  the  port  number 

1CV 

ah,  2 

;  Set  AH  to  2  (printer  status  function  J 

int 

1TB 

;  Call  ROB  BIOS  printer  interrupt 

BCV 

a  1 ,  a  h 

:  Return  the  status  in  AX 

sor 

ah, ah 

:  Kith  high  byte  zero 

pop 

bp 

;  Restore  the  BP  register 

ret 

:  Return  to  calling  program 

.prtjtat  endp 

:  End  of  subroutine 

TEXT 

ends 

;  End  of  code  segment 

end 

:  End  of  assembly  code 

DEFINE. C 
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'include  "user\define.h" 

/'  Initialize  norking  tours  and  days 
ars_per_day  =  24; 
days_per_«eek  =  ?; 


/'  Initialize  other  variables  '/ 
»in_inv  =  2; 
purchasejot.size  =  5: 
transfer_batch  =  1: 
«at_handling_cost  =  1; 
other  jp_expense  =  200: 


/'  $1  per  transfer  '/ 
/'  S200  per  day  «/ 


/'  Initialize  the  integer  »rite  structure 
INTJRIIE  int_»rite[J  =  I  "hrs.per.day", 


"iays_per_»eek". 

"iin_inv", 

"purchase_Iot_size", 

■transfer  JjatcIT, 

"iat_handling_cost", 

"other_op_expense", 


Shrsjerjay, 

Sdaysjerieek, 

S»in_inv, 

SpurchaseJot_size, 

Uransfer.batch, 

Siat_handling_cost, 

lother_op_expense, 


/'  Initialize  the  screen  location  structure  '/ 
VJIJiOCATIOI  var.locationl]  =  I       "hrsjer_day" 
"days_per_»eek", 
"linjnv", 

■purchase_lot_size", 
"transferjatch", 
"iat_handling_cost". 
'other_op_expense\ 


1,  10, 

A 

1! 

2,     3, 

3      5 

77 

7E 

3,    1, 
3,     9, 
J,  11, 

76 
7S, 

n5 

a,  17, 
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♦include  <stdio.h> 
(include  "user\sii.h" 
(include  "user\calendar.h" 

/'  Function  to  breakup  tine  into  weeks,  days,  hours  and  minutes  '/ 

int  ti«e_to_string(tiie_in_«ins,  p_:ail 

unsigned  long  time  in  lins: 

CALENDAR  'p  cal: 

I 

p_cal-)weeks  =  iintl(tUe_in_«ins/HIN_PERJIEE![l: 
p_cal-)days  =  (intM(tiie_in_iins/KINJ'ER~DAY]-\ 

((unsigned  long) lp.cal-)»eehl 'DAYS  PER  KEEK)); 
p.cal-)hrs  =  (int)((tiie.in_iins/»IN_?EE_HRI-\ 

((unsigned  long) (p_cal->*eefes) «H8S_PBR_HEEltl-\ 
I  (unsigned  long) lp_cal->days)  'JRS.PER.DAYII : 
p_cal->iins  =  lintlltiie_in_iins  %  KIN  PER  HR); 


/'  to  be  changed  to  structure  version  «/ 

int  strinc_to_ti«eltime_inj»ins.  veeks,  days,  hrs,  sins) 

unsigned  long  'tiie_in_iins: 

int  neeks,  days,  hrs,  nins; 

( 

■tiiejn.iins  =  (unsigned  longl»eeks'NIN_PERJEEK  t 
(unsigned  longldays'SIH_PER_DAY  *" 
(unsigned  long)hrs'MN_PER_»R  * 
(unsigned  longlnins: 
print£("ti>e.in_iins  =  *lu\n",  'tine  in  nins): 
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Sample  Input  File 
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cash: 
expense: 
n_depts: 
n  Jtypes: 
max_ops : 

10000 
0 
5 
5 

e 

routing: 
13   5  2  0 
3   4  5  2   1 
15   2  5   3 
13   5  4  0 
2   5   4   3    1 

0    0 
2   0 
4   0 
0  0 
2  0 

routing_row:            0 
routing_col:            42 

dept_no:         1 
nmachines:     3 
nmach_in_use:          0 
row:                 1 
col:                 21 

dept_no:    2 
nmachines:  3 
nmach_in_use:    ( 
row:       14 
col:       21 

dept_no:    3 
nmachines:  3 
nmach_in_use:    C 
row:       9 
col:       45 

dept_no:    4 
nmachines:  3 
nmach_in_use:    0 
row:       l 
col:       68 

dept_no:    5 
nmachines:  3 
nmach_in_use:    0 
row:       14 
col:       68 

raw_materials: 
row:       8 
col:       11 

n_raw_mat:  5 

raw_material_cost : 

1  20 

2  30 
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3 

15 

4 

25 

5 

10 

products: 

row: 

8 

col: 

60 

njroducts: 

5 

product_prices: 

1 

80 

2 

100 

J 

90 

4 

110 

5 

60 

setup_tiraes: 

repeat=0 

240  120  320  160  180 

80  120  220  0  130 

60  210  100  225  130 

0  110  120  115  220 

60  220  110  135  130 

repeat=l 

0   0   0  0   0 

0  125   0  0  165 

0   0   0  0   0 

0   0   0  0   0 

115   0  100  0   0 

machining_times: 
repeat=0 

5  12  18  8   6 

50  43  16  0  10 

16   5  17  23  28 

0  12  26  36  18 

8  11  21  31  26 

repeat=l 

0   0   0  0   0 

0   2   0  0   8 

0   0   0  0   0 

0   0   0  0   0 

16   0  12  0   0 

part_type:raw_material-relationship: 
ptype  rawmat 

1  3 

2  5 

3  4 

4  2 

5  1 
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ABSTRACT 

This  work  presents  the  development  of  an  interactive 
next-event  simulation  package  which  will  allow  the  user  to 
explore  the  rules  of  Optimized  Production  Technology (OPT) 
and  the  Theory  of  Constraints.  The  package  will  help  the 
user  in  investigating  the  decision  making  rules,  their 
linkages  and  consequences. 

The  simulator,  which  is  the  result  of  this  effort, 
gives  a  new  approach  to  next-event  simulation.  It  allows 
the  user  to  make  decisions  and  control  the  flow  of  the 
simulation  when  it  is  actually  in  progress.  The  simulator, 
which  runs  on  IBM-PC  or  compatible,  features  a  graphics 
output  in  addition  to  other  features  such  as  zoom,  future 
event  chain  display,  and  statistics  display.  It  is 
completely  menu-driven  and  is  suitable  for  use  as  an 
instructional  tool  for  students  in  understanding  the 
dynamics  of  production  control,  even  if  they  have  very 
little  knowledge  about  computers. 


